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Preface 



This piiblication guides the user through 
the generation of an installation- tailored 
Disk Operating System for IBM Systeni/360. 
The inforiration herein is of particular 
interest to anyone who wants to build a 
Disk Operating System, including 
installation managers,, system analysts, 
programmers and machine operators. 



In particular, the user will find that 
familiarity with the following system 
programs and facilities is invaluable when 
using this publication: the control 
program, the system service programs, and 
the input/ output control syston (IOCS) 
logic modules. The control program, and 
the system service programs are described 
in the System Control and System Service 
Programs publication. The IOCS logic 
modules are described in the Supervisor and 
Input /Out put Macros publication, both of 
which are listed on the front cover. 

The publication is divided into the 
following major sections, and seven 
appendixes: 

1. Introduction 

2- Planning an Operational Pack 

3. System Generation and Maintenance 
Procedure 

4. IBM BPS Utility Programs 

5. Macro Instructions for Generating a 
Supervisor 

6. Two 2311 Disk Drives 
1. One 2311 Disk Drive 

8. IBM 231U Direct Access Storage 
Facility 

9. Maintenance Procedures 

10. Disk Operating System Sample Problems 



The first five sections contain required 
information for most users. Sections six, 
seven, and eight refer to specific machine 
configurations, and present techniques for 
generating a system. They are examples 
intended to guide the user through the 
generation of his system. Only the section 
that relates to the user's configuration 
need be read. 

Section nine describes maintenance 
procedures and how to apply IBM-supplied 



Disk Operating Systems to maintain an 
existing Disk Operating System. 

Section ten describes the IBM-supplied 
sample problems that can be used to test a 
system after it is generated. 

The appendixes contain information 
needed for planning a Disk Operating 
System. Appendix B, IOCS Modules for 
COBOL. RPG, and PL/I ; Appendix C, IBM 
System Components Identification ; and 
Appendix G, Storage Requirements are of 
major importance for planning purposes. 
Appendixes B and C will assist the user 
when planning the contents of his 
libraries, and Appendix G when estimating 
the size of his supervisor, and libraries. 

Closely related publications are: 

IBM Svstem/360 Disk Operating System, 
Timing Estimates , Form C2U-5032 

IBM System/36 Disk Operating System, 
Vocabulary File Utility Programs for IBM 
7772 Audio Response Unit , Form C27-6924 

IBM Svstem/360 Basic Programming Support, 
Distribution Program Specifications and 
Operating Guide , Form C 21- 5001 

IBM Svstem/360 Basic Programming Support, 
DASD Utility Programs Operating Guide , Form 
C24-3392 

References are made in this publication 
to the following: 

IBM System/360 Disk and Tape Operating 
Systems, COBOL Programmer's Guide , Form 
C2t»-5025 

IBM System/360 Disk Operating System, 
FORTRAN IV Programmer's Guide , Form 
C28-6397 

IBM System/360 Disk and Tape Operating 
Systems, Basic FORTRAN IV Programmer's 
Guide, Form C2U-5038 



IBM System/360 Disk and Tape Operating 
Systems, PL/ I Programmer's Guide , Form 
C2U-9005 



IBM System/360 Disk Operating System 
m01/14U0/lU60 Emulator Programs for IBM 
System/ 360 Models 30 and 40; Compatibility 
Support/ 30; Compatibility Support/UO , Form 
C27-6940 



IBM System/360 Disk Operating System 
Autotest, Form C2U-5062. 
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Introduction 



The IBM Systein/360 Disk Operating System for 2311 resident systems is 
supplied to the user in two volumes. The volumes can be identified as a 
relocatable volijraie and a source statement volume. Users with a tape unit 
available receive the volumes on tape reels; users without a tape unit 
available receive the volumes on disk packs. These volumes are manipulated 
during system generation to create an operational system. 

IBM supplies the 2314 system on two tape reels. These tapes will be 
restored to a 2314 disk pack to create a system consisting of a core image 
library, a relocatable library, and a source statement library. The 
capacity of one 2314 disk pack is enough to accommodate both tape reels 
shipped by IBM- 

The disk operating system is composed of three libraries: 

Source Statement Library 

Relocatable Library 

Core Image Library 

The source statement library contains IBM-supplied macro definitions. 
When the desired parameters are chosen, the macros can be assembled. For 
the user's convenience, the source statement library also contains sample 
probl«ns and system generation job streams that can be retrieved as needed. 

The relocatable library contains IBM programs that have not been 
assigned addresses for execution and assembled macros from the source 
statement library. These assembled macros perform input and output 
procedures for IBM-supplied programs- These assembled macros (Logical IOCS 
modules) can also be used by user programs when applicable. 

The core image library contains programs that are ready for execution. 
System control programs and system service programs are always shipped to 
the customer in the core image library. Where it is necessary for system 
generation purposes, an assembler program is provided. The system control 
programs must always be part of the system. The librarian programs are a 
key set to the system and should be carefully considered before ever 
removing them from the system. 

During system generation the user works with the IBM-supplied system to 
tailor it to his individual needs. This consists of adding to and deleting 
from the libraries, IBM and user code (source, relocatable and core image). 



Planning System Generation 

Proper and detailed planning saves on total syston generation time. Thus, 
it is very important to perform a very thorough job. 

Planning system generation consists of: 

1. Planning the contents,, organization, and ultimate size of the system 
and/or private libraries. This entails distributing the storage space 
available (on the disk packs) between the libraries ultimately desired 
for day-to-day use. Major points of consideration are: 
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• the size of the core image library and, if desired, system and/or 
private relocatable and source statement libraries 

• workfile space needed to assemble a supervisor, and to accommodate 
the linkage editor, which is needed to catalog the components 
selected to the system core image library 

• standard assignments (allocation of space) for workfiles 
(assemblies), and linkage editing needed for every day operation. 

2. Planning the contents and estimating the size of a supervisor. This 
entails selecting from the programming services provided by IBM, those 
to be included in the supervisor, and estimating the cost of these 
services in terms of bytes of storage. 



PLANNING THE LIBRARIES 

Two types of IBM libraries are: 

1, System libraries 

2. Private libraries 

Ihe system libraries are the core image, the relocatable, and the source 
statement. The private libraries are the private relocatable, and the 
private source statement library. (There is no private core image 
library. ) 



CORE IMAGE LIBRARY 

Because the core image library contains the executable format of programs, 
it is the library in which the user is most likely to keep his programs. 
Otherwise, the programs must continually be placed in the core image 
library before each execution (linkage edited) . Therefore, during system 
generation the user expands the size of the core image library to 
accommodate all the programs desired resident and on-line. (Both his own 
programs and IBM's.) 

In addition, the user should try to envision future space he may 
require, and provide this space if possible. Such planning can eliminate 
the need for another system generation. Thus, to expand the core image 
library means making the remaining libraries smaller on the pack. 

Before the size of a library is reduced, the user must delete those 
items that are not to be used, or those items that were transferred to 
another library in the required format. It is recommended that backup of 
the system (a copy of the IBM- supplied system) be obtained to protect a 
user who accidently removed something he desired from the system. It is 
also recommended that after successful completion of segments of system 
generation, a copy (backup) of the partially generated system be obtained, 
i.e., upon the creation of a library, or the assembly of a supervisor. This 
permits a user to return to a point other than the beginning of his 
procedure in case of an error. The components supplied in the IBM-shipped 
core image library facilitate system generation- 
's IBM S/360 DOS Sys. Gen. and Maint. 



RELOCATABLE LIBRARY 

All IBM-supplied components are shipped in the relocatable library. This 
librairy is the basis for the creation of a private relocatable library. 
Thus, it is from this library that most IBM components are directly or 
indirectly extracted (indirectly in the case of the existence of a private 
relocatable library and a system relocatable library) . 



SOURCE STATEMENT LIBRARY 

All IBM-supplied macro definitions are in this library. This library is 
the basis for the creation of a private source statement library. Thus, it 
is from this library that many users extract, directly or indirectly, 
IBM-supplied component macro definitions (indirectly in the case of the 
existence of both a private source statement library, and a system source 
statement library) . 



PRIVATE LIBRARIES 

If the user has more than one disk drive available, it is not necessary to 
decrease the size of the relocatable and source statement libraries. They 
can be assigned to other disks and are then referred to as private 
libraries. The user can build systems with private and system libraries 
containing those items that best fit his needs. 



LIBRARY SIZES 

The user must choose which of the libraries he desires, and then plan their 
precise content and size for daily use. Thus, the user should know the 
initial, intermediate, and final sizes of the libraries throughout system 
generation, and he must plan the exact contents of each library that is 
created during system generation. These contents should be listed, along 
with their sizes, and then the total number of cylinders to be allocated 
can be calculated. 

The contents of the libraries are identified in Attachment 1 of the 
Memorandum To Users that accompanies the IBM system that is shipped. The 
storage requirements (sizes) for these components, and macro definitions 
are identified in Appendix G; Storage Requirements . Components shipped in 
the relocatable library are also identified in Appendixes B, C, D, and E. 
Those macro definitions supplied by IBM are also identified in Appendix C. 

An alternate method for determining the number of cylinders to allocate 
for a library is given in the discussion Allocating Library Sizes for 2311 
and 2 31U Disk Systems . Note that once private library sizes have been 
allocated, they cannot be reallocated. Although excess room in the 
libraries may not offer maximum efficiency, in case of a calculation error, 
the benefits can be easily recognized when sufficient space is available. 
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ALLOCATING LIBRARY SIZES 

When the user desires to reduce the size of an existing library, it may be 
iitipcrtant to know the minimiam library size that can be allocated. This 
size should be increased to accommodate any additional user programs to be 
included in this library. The size of any IBM component to be included in 
this library can be determined by referring to the storage requirements 
given in Appendix G. For the details on how to allocate an existing 
library, see Allocating Library Sizes for 2311 and 231U Disk Systems . 



PLANNING A SUPERVISOR 

The supervisor is a control program that provides specialized services to 
progreims executed from the problem program area of main storage. This 
program is composed of a group of assembled macros (see Macro Instructions 
for Supervisor Generation . The options selected in each of the supervisor 
generation macros determine the size of the assembled supervisor. The size 
of each option is identified in Appendix G . 

The SEND macro determines the end of the supervisor. If the user 
assembles a supervisor with a SEND address larger than the previous 
supervisor, some portion of the supervisor is overlaid by programs linkage 
edited to the previous SEND address. 

The user must re-linkage edit programs after the new supervisor is 
loaded so that the new load address follows the newly assembled supervisor. 

Note that at each IPL, the user must include ADD and ASSGN statements 
for each device until a system supervisor is built that describes his 
machine configuration and standard I/O assignments (see DVCGEN and ASSGN 
macros) . 

To calculate the size of the supervisor the user must list all of the 
options that are chosen and then determine the sum of the sizes obtained 
from the storage requirements (see Appendix G ) . 

When choosing supervisor parameters, the user must check to see if the 
chosen options are compatible. Also, the user should check to determine 
which parameters automatically provide the support for another. 



System Configuration 

This section presents the minimum, system configuration required to operate 
the Disk Operating System. The system control programs and basic IOCS must 
always be present in order to execute any other programs. 



MACHINE REQUIREMENTS 

Minim im features required: 
16K bytes of main storage 
Standard instruction set. See Note 1 . 
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One I/O channel (either multiplexor or selector) . See Note 2 . 

One Card Reader (1UU2, 2501, 2520, or 2540). See Note 3 . 

One Card Punch (14U2, 2520, or 25U0) . See Note 3 . 

One Printer (1U03, 1404, or 1443). See Note 3 . 

One 10 52 Printer- Key board. 

One 2311 Disk Storage Drive or 

One 2314 Direct Access Storage facility 

Note 1 ; language translators may require extended instruction sets. 

Note 2 ; Telecommunications requires a minimum of two channels, one 
multiplexor channel, and at least one selector channel. One channel is 
required for telecommunications, and the other for the system resident 
device. (Telecommunication devices should not be on the same selector 
channel as SYSRES. ) Note that a 2701 Line Adapter Unit attached to an IBM 
System/ 360 Model 2025 must be placed on the multiplexor channel. 

Note 3 ; One 2400- series magnetic tape unit may be substituted for this 
device (7- or 9-track) . If 7-track tape units are used, the data-convert 
feature is required, except when substituted for a printer. 
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Planning an Operational Pack 



An operational systeiti is one used in day-to-day operations that contains a 
tailored supervisor and libraries appropriate to each customer's particular 
combination of system programs and application programs. A system 
maintenance volume is one used primarily to facilitate changes to programs 
supplied by IBW. Application programs can also be added to a maintenance 
volume for ease of program maintenance. 

Change Distributions are those changes supplied by IBM to the 
IBM-shipped volimie. 

Proper planning is the key to successful system generations. The time 
spent in planning can save the user frustration and valuable time. The 
user's planning should reflect the initial, intermediate and ultimate 
capacity of the core image, relocatable and source statement libraries. 
Enough workfile capacity must be available throughout system generation for 
assemblies and linkage- edit steps. 

Appendix G should be used to determine storage requirements for the 
components in the system. 

IBM supplies a system containing either a 6K for 2311, or 8K for 231U 
supervisor. The IBM supeirvisors are those described in Figure 6. 



BACKGROUND PARTITION STORAGE REQUIREMENTS FOR DISK OPERATING SYSTEM 
IBM-SUPPLIED PROGRAMS 

All IBM-supplied programs used with Disk Operating System that are language 
translators or utilities execute in the background partition. Figure 1 
lists the minimum size background partition required. 
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IBM- Supplied 
Program 

Assembler (IJQD16TW) 

or (IJQD16DW) 
Assembler (IJQD32) 
Assembler (UYASM) 
COBOL 

Basic FORTRAN 
FORTRAN 
RPG 
PL/I 
Utilities 

Group 1 
Group 2 
Group 3 
Tape Sort/Merge 
Disk Sort/Merge 
Tape/Disk Sort/Merge 
Tape/2311 
2314 
14 01/1440/1460 Emulator 

for IBM Model 30 
1401/1440/1460 Emulator 

for IBM Model 40 
Auto test 





Minimum Size | 


IBM- Pro gram 


Background | 


Number 


Partition (in bytes) | 


360N-AS-465 


10,240 1 


360N-AS-465 


14,336 1 


360N-AS-466 


45,056 1 


360N-CB-452 


14, 336 1 


3 6 ON- FO- 4 51 


10,240 1 


360N-FO-479 


40,960 1 


360N-RG-460 


10,240 1 


360N-PL-464 


10,240 1 


3 6 ON- UT- 4 61 


10,240 1 


360N-UT-462 


10,240 1 


360N-UT-463 


10,240 1 


360N-SM-400 


10,240 1 


360N-SM-450 


10,240 1 


360N-SM-483 






10,240 1 




22,528 1 


360N-EU-484 


16,384 1 


360N-EU-485 


* 1 


360N-PT-459 


10,240 1 



* The background partition storage requirement is as follows: 

16,384 bytes for the supervisor plus 2,048 to 16,384 bytes for the 1400 
being emulated plus the size of the emulator program defined. 

•Figure 1. Disk Operating System Background Partition Storage Requirements 
for IBM-Supplied Programs 



ONE 2 311 DISK DRIVE 



When the user plans his operational system he decides upon the ultimate 
appearance of his libraries. The one disk drive user will find it most 
convenient to build his operational system on the IBM volume that contains 
the core image and relocatable libraries. Many single disk drive users 
will want to build operational systems appearing as one of the following: 

• Core image library, small system relocatable library, and/or small 
system source statement library 

• Large core image library 

The small system relocatable library is for users who need the compiler 

subroutines and/or system IOCS modules on line at all times. If the 

subroutines are to be on line, the relocatable library should also have 
enough room to contain the user's largest compiler. 

The samll system source statement library can contain system control and 
logical IOCS macros. The system with the source statement library, 
supplied by IBM,, can be used as an assembly pack. 
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AT LEAST TWO 2311 DISK DRIVES OR A 2314 DIRECT ACCESS STORAGE FACILITY 

The user with at least two disk drives will find it most convenient to 
build his operational pack upon the IBM volume that contains the core image 
and source statement libraries. Many multiple disk drive users will want 
to build operational system appearing as one of the following: 

• Core image library, private relocatable, and private source statement 
libraries, 

• Core image library, private relocatable library, system source 
statement library, and private source statement library. 

• Core image library, system relocatable library, private relocatable 
library, and private source statement library. 

• Core image library, system relocatable and source statement libraries, 
and private relocatable and source statement libraries. 

• Core image library, systen relocatable and system source statement 
libraries. 

• Core image library, system source statement library, small private 
relocatable library (on the operational pack) and private relocatable 
library. 

IBM system control and syston service programs are supplied in the core 
image libraries of both volumes for the 2311 systems and in the core image 
libraiY fo^ the 2314 system. The 2311 systems have the lOK background disk 
workfile assembler supplied in the core image library of the source 
statement library volume. The 2314 systems have the 14K background disk 
and tape workfile assembler in the core image library. For both 2311 and 
2314 systems, all IBM components are supplied in the relocatable library. 

If the user's assembled supervisor does not exceed the size of the IBM 
supervisor, re- linkage editing and re-cataloging of the IBM-supplied 
programs shipped in the core image library are unnecessary,. Job control is 
self- relocating and need never be re-linkage edited. Only the steps 
required to retrieve the sample problems, delete unwanted components, 
assign standard labels, assemble a user's supervisor, allocate for and 
linkage edit IBM components, and condense libraries are necessary to 
perform system generation. 

When the number of tracks required for each library has been calculated, 
the user should allocate a sufficient number of cylinders to each library 
of each operational system. Additional cylinders may be allocated to the 
core image library for application programs. Sometimes the user must 
reallocate the libraries on his disk pack(s) during system generation to 
ensiire sufficient work file storage for assemblies and linkage- edit steps. 

Users with more than one available disk drive will find it to their 
advantage during system generation to define private relocatable and source 
statement libraries for an operational system. 



ALLOCATING LIBRARY SIZES FOR 2311 AND 2314 DISK SYSTEMS 

When the size of an existing library is reduced, it may be important to 
know the minimum size library that can be allocated. Once the minimum size 
libJiary is calculated, it should be increased to accommodate any user 
programs to be included in the library. The size of IBM components can be 
determined by referring to the storage requirements given in Appendix G. 
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The following explanation illustrates how to calculate the nuiiiber of 
tracks required for a core irrage, relocatable, or source statement library 
for a 2 311 or 2314 disk system. The formula for computing the size of a 
library is: 

Library (size in tracks) = LBA/nn 

where: library = either core image, relocatable or source statement 

LBA = the number of LIBRARY BLOCKS ACTIVE for the library of 
interest and is obtained from a DIRECTORY (SYSTEM or 
PRIVATE) 

nn = LIBRARY LAST AVAILABLE ENTRY in the R (record) column 

Using the sample PRIVATE DIRECT'ORY that follows, an example of how to 
compute a library size is: 

Relocatable Library = LBA/nn 

where: LBA = 9849 

nn = 9 , thus 
Relocatable Library = 98U9/9 = 1,094.3 tracks 

The relocatable library size computed does not include the tracks 
allocated for the directory (see Directory Allocated Tracks) . The 
directory size must be added to the relocatable library size computed. 
Thus, 

Relocatable Library Allocation - Relocatable Library + Directory Allocated 
Tracks 

Therefore, 

Relocatable Library Allocation = 1,094.3+9 

= 1,10 3.3 Tracks 

For a 2311, cylinders = Library Size (Tracks) 

10 

For a 2 314, cylinders = Librar y Size (Tracks) 

20 

For this example, 

the Relocatable Library Allocation for a 2311 ■=■- 1103.3 Tracks 

10 
= 110.3 or 111 cylinders, 
rcunded high 
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PRIVATE DIRECTORY PRIVATE-RELOCATABLE 

02/01/69 DECIMAL 

C H R E 
DIRECTORY STARTING ADDRESS 01 00 01 

DIRECTORY NEXT ENTRY 01 05 01 08 

DIRECTORY LAST ENTRY 01 08 09 19 

LIBRARY STARTING ADDRESS 01 09 01 

LIBRARY NEXT AVAILABLE ENTRY 111 3 4 
LIBRARY LAST AVAILABLE ENTRY 127 09 09 

STATUS INFORMATION 

DIRECTORY ENTRIES ACTIVE 903 



LIBRARY BLOCKS ALLOCATED 11349 

LIBRARY BLOCKS ACTIVE 9849 

LIBRARY BLOCKS DELETED 00 

LIBRARY BLOCKS AVAILABLE 1500 



AUTOMATIC CONDENSE LIMIT 00 



LIBRARY ALLOCATED CYLINDERS 127 
DIRECTORY ALLOCATED TRACKS 09 



USER DECISIONS AND CONSIDERATIONS 

The following considerations and decisions should be made before system 
generation: 

1. Select supervisor options by coding a set of supervisor macro 
instructions (see Macro Instructions for Generating a Supervisor ). 

2. Determine which programs will be in the core image library of each 
operational pack (e.g. COBOL, FORTRAN, etc). 

3. Determine which assembler will be used to generate a new supervisor. 
(See Variants of IBM-Supplied Assembler . ) The 2311 systems have the 
lOK background disk workfile assembler supplied in the core image 
library of the source statement volume. The 2314 systems have the 14K 
background disk and tape workfile assembler supplied in the core image 
library. 

4. Determine which modules are to be deleted from the relocatable library 
of each operational pack. Deleting from the relocatable library 
allows the user to expand the core image library to hold a greater 
number of components. Refer to Appendix G for IBM component sizes. 

5. Users must also determine if the macro definitions used to build the 
supervisor and IOCS modules are to be deleted from the source 
statement library. Retaining the macros in the source statement 
library facilitates building a new supervisor and new user IOCS 
modules . 
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6. When possible, maintenance is supplied on magnetic tape or cards, 
rather than on disk packs. (Unusually large maintenance distributions 
are supplied on a disk pack to 2311 resident systems without magnetic 
tapes.) If a seven-track tape unit is to be used for systems 
maintenance, it must have the Data Conversion feature. The 2314 
resident systems will always receive maintenance on tape. 

7. One disk drive users may prefer to maintain only enough room in the 
relocatable library of the operational pack to contain the modules 
used to build the largest component in the system. This small 
relocatable library permits temporary insertion of any component in 
relocatable form. It can then be immediately linkage edited into the 
core image library and then deleted from the relocatable library. 
When the relocatable library is subsequently condensed, only the 
updated core image form of the component remains, thus conserving 
disk-storage capacity. Reducing the size of the relocatable library 
allows expansion of the core image library. The expanded core image 
library allows a greater number of components to be contained in a 
single systems volume. 

8. Copy and restore programs are necessary to transfer the resident 
system from tape to 2311/2314, 2311/2314 to tape, 2311/2314 to cards, 
and cards to 2311/2314 for maintenance and backup purposes. 

9. The procedures for the configurations shown in this publication assume 
the system packs to be initialized with the VTOC on cylinder 199 and 
the work packs to be initialized with the VTOC on cylinder zero or 
199, 

MAPS AND LISTINGS PRODUCED DURING SYSTEM GENERATION 

All linkage editor output on SYSLST from the system generation procedure 
and any future updates (including maps produced by the linkage editor) must 
be retained. These maps provide necessary information on the level of the 
system and the load address (relocation) of each component. Similarly, 
supervisor assembly listings should be retained. These maps and listings 
will be used by the systems programmer and the Field Engineer maintaining 
the system. 



VARIANTS OF IBM-SUPPLIED ASSEMBLER 

The relocatable library of the IBM-supplied system residence contains 
assembler modules suitable for building an Assembler using Tape Work Files 
(TWF) , or Disk Work Files (DWF) , or both tape and disk workfiles. The 
following are the names of the IBM-supplied assembler variants: 

IJQD16TW (lOK assembler, TWF) 

IJQD16DW (lOK assembler, DWF) 

IJQD32 (14K assembler) 

IJYASM (44K assembler) 

The first two variants require a minimum of lOK bytes of contiguous 
problem program storage for use by the assembler and can be used with a 
minimum machine size of 16K. The third variant of the assembler listed can 
be built to use either tape and/or disk work files and use additional 
problem program storage for buffering of work file input/output functions. 
The tape and/or disk work file variant requires a minimum of 14K bytes of 
contiguous problem storage for use by the assembler and requires a minimum 
machine size of 24K. A second assembler. Assembler F, is also available. 
This assembler requires a minimum of 44K bytes of contiguous storage and 
requires a minimum machine size of 64K, Either the 14K variant or the 44K 
Assembler must be used when using private source statement libraries. 
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The names of the lOK and lUK modules begin with IJQ and the 4UK modules 
with IJY; thus modules can be copied, punched, or deleted by a COPYR, 
PUNCH, or DELETE statement specifying IJQ .ALL or IJY. ALL as an operand. To 
linkage edit the TWF only variant of the assembler, use the following job 
control statements: 

INCLUDE IJQD16TW 
// EXEC LNKEDT 

To linkage edit the DWF only variant, use the following job control 
statements: 

INCLUDE IJQD16DW 
// EXEC LNKEDT 

To linkage edit the lUK variant, use the following job control 
statements : 

INCLUDE UQD32 
// EXEC LNKEDT 

To linkage edit the UUK assembler, use the following job control 
statements : 

INCLUDE IJYASM 
// EXEC LNKEDT 

If the lUK variant of the assembler is to be linkage edited to the core 
image library of a system containing a lOK variant, the assembler supplied 
in the core image library of the IBM- supplied pack should first be deleted 
(DEIETC ASSE.ALL). 

Only one of the IJQ variants may reside in the core image library at any 
one time. One of the IJQ variants can co-reside with the IJY assembler if 
the name of the first phase of one of them is changed from ASSEMBLY to some 
other name by means of the RENAMC function of the MAINT program. The 
renaming must be performed before the second assembler is linkage edited 
into the core image library. The first one is then invoked under its new 
name; the second under the name ASSEMBLY. 

It is expedient, during system generation, to use the largest assembler 
the machine can support because the performance improvement is most 
significant. 

VARIANTS OF PL/I 

Two variants of the PL/I compiler can be built. One of the PL/I variants 
requires lOK bytes (of problem program storage), while the other requires 
12K- The 12K variant allows the system input and output files to be 
assigned to a 2311 disk drive or a 231U direct access storage facility, if 
the supervisor supports SYSFIL. PL/I is capable of using either disk or 
tape work files (as are COBOL, FORTRAN, Basic FORTRAN, and RPG) . Thus, 
PL/I also furnishes compile-time device independence for work files. 



PL/I AND SYSTEM INPUT/OUTPUT ON DISK 

The two variants of the PL/I compiler differ in their treatment of SYSIPT, 
SYSIST, and SYSPCH. If one or more of these logical units is assigned to a 
2311 during compilation, the variant of the PL/I compiler requiring 24K 
bytes of main storage (12K for the compiler itself), must be built. 
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The following statements will generate the 12K variant: 

INCLUDE IJXPLID 
// EXEC LNKEDT 

If the 12K variant is not required, the following statements must be 
specified: 

INCLUDE IJXPLI 
// EXEC LNKEDT 

If either SYSIPT or SYSLST is assigned to a 2311 or 2314 for execution 
of PL/I object programs, the I/O modules invoked to support these 
assignments must be retained. During system generation, a relocatable 
library maintenance run should be performed to rename these modules before 
deleting the PL/I compiler from the relocatable library. The following 
control statements delete the I/O modules that do not support the disk 
facility from the relocatable library (because they are no longer needed), 
rename the PL/I object time I/O modules that do support the disk facility, 
and delete the PL/I compiler from the relocatable library. 

// EXEC MAI NT 

DELETE IJKSYSA,IJKSYSI 

RENAME IJXSYSA, IJKSYSA, IJXSYSI, IJKSYSI 

DELETR IJX.ALL 

The user may want to retain the card modules that do not support the 
disk facility (if there is a possibility that card or tape input only and 
printer or tape output only are desired at some future time) . The 
following control statements permit punching these modules. The user must 
punch these modules before they are deleted from the relocatable library as 
shown in the preceding example. 

// EXEC RSERV 

PUNCH UKSYSA, IJKSYSI 
/* 

If neither SYSIPT nor SYSLST is assigned to a 2311 or 231U during execution 
of PL/I object programs, only the DEILETR IJX.ALL statement is required for 
the maintenance run. 

During system generation, utilities and work- file variants that are not 
needed can be deleted. If the system volume received by the user is a disk 
pack, it is capable of operating as a system. If the system volume is a 
tape reel, it is self-loading tape that must be restored onto a disk pack 
before it is operable. 



FORTRAN Compatibility 

The FORTRAN library contains a module, ILFACOM, to provide compatibility 
with Basic FORTRAN subprograms. Because of differences in design 
objectives, object modules produced by the FORTRAN and Basic FORTRAN 
compilers are not compatible without this interface. With it, subprograns 
compiled under Basic FORTRAN can be incorporated into a FORTRAN program. 

The compatability module can be invoked on a job- by- job basis, or the 
system can be altered at system generation time so that it is Drought in 
with all Basic FORTRAN linkage edits. The procedure for using it for a 
single job is discussed in the FORTRAN IV Programmer's Guide , listed in the 
Preface. 
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The system can be altered periranently by executing the jobstream book 
named Z.ILFMERGE which is in the source statement library of the DOS system 
residence volume supplied by IBM. This action deletes all Basic FORTRAN 
object time library routines from the relocatable library. It replaces 
them with references to the corresponding FORTRAN object time library 
routines and to ILFACOM. Subsequently, any Basic FORTRAN object module 
that refers to a library routine, such as the square root subprogram, 
IJTSSQT, actually uses the corresponding FORTRAN routine, in this case, 
ILFSSQRT. 

This procedure is recommended only for installations that intend to 
convert entirely from Basic FORTRAN to FORTRAN, but do not want to 
recompile existing programs and subprograms. The action provides 
additional space in the relocatable library by eliminating the Basic 
FORTRAN routines, but it also increases the execution time of all Basic 
FORTRAN modules. 



WARNING DIAGNOSTICS 



The following warning diagnostics appear in the linkage editor maps during 
system generation, but they do not indicate errors. 



Assembler 



DWF variant (incorporated by including IJQD16DW for assembler linkage 
edit) . 

♦UNREFERENCED SYMBOLS 



EXTRN 


IJQD0$21 


EXTRN 


IJQD0$2U 


EXTRN 


IJQD0$39 


EXTRN 


IJQD0$60 


EXTRN 


IJQD2$30 


EXTRN 


IJQRTA35 


EXTRN 


IJQRTAUS 


EXTRN 


IJQRTB30 


EXTRN 


IJQRTB42 


EXTRN 


IJQRTB57 



POSSIBLE INVALID ENTRY POINT DUPLICATION IN INPUT 

TWF variant (incorporated by including IJQD16TW for the assembler linkage 
edit) . 

♦UNREFERENCED SYMBOLS 



EXTRN 


IJQD0$15 


EXTRN 


IJQD0$18 


EXTRN 


IJQD0$58 


EXTRN 


IJQDOAIO 


EXTRN 


IJQD0$60 


EXTRN 


IJQRTA35 


EXTRN 


IJQRTAUS 


EXTRN 


IJQRTB30 


EXTRN 


IJQRTBU2 


EXTRN 


IJQRTB57 


EXTRN 


IJQD2$30 


EXTRN 


IJQD2$60 
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POSSIBLE INVALID ENTRY POINT DUPLICATION IN INPUT 



Variant utilizing additional main storage (incorporated by including IJQD32 
for the assembler linkage edit). 

♦UNREFERENCED SYMBOLS 



EXTRN 


IJCD0$45 


EXTRN 


IJQD0$57 


EXTRN 


IJQD0$58 


EXTRN 


IJQDOAIO 


EXTRN 


IJQRTA30 


EXTRN 


IJQRTB39 


EXTRN 


IJQRTBSa 


EXTRN 


IJQD2$30 


EXTRN 


IJQD2$60 



POSSIBLE INVALID ENTRY POINT DUPLICATION IN INPUT 
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System Generation and Maintenance Procedure 



Many techniques exist for generating and maintaining operational volumes. 
Each installation uses techniques dependent on its machine configuration 
and its selection of system and application programs. The techniques 
described here correspond to the following principal machine configurations 
relevant to system generation and maintenance: 

1. At least two 2311 disk drives. 

2. One 2311 disk drive. 

3. One 2314 direct access storage facility. 

The three examples given (Figures 8, 10, and 12) do not show the coding 
necessary to linkage edit and delete all IBM- supplied components. They are 
meant only to be samples and must be tailored to meet each user's needs. 
Additional control statements required to meet the user's needs for linkage 
editing and deleting any IBM-supplied components are given in Appendix C . 

If the system has a tape unit (7-track tapes must have the Data 
Conversion feature to be used during system generation and maintenance), 
the system is shipped from IBM on tape. The Il^-supplied tape is a 
self-loading tape that must be transferred from tape to a disk pack before 
starting system generation. The resulting disk pack is then ready for 
system generation. The IBM- supplied tape should be retained as an 
additional backup tape. If a system has no tapes, the 2311 resident system 
is shipped on a disk pack that is ready for system generation. The 231U 
resident system is shipped on tape (s) only. 

Each System Generation Job begins with a new IPL procedure, including 
the necessary ADD, SET, and ASSGN statements. Typically, each job consists 
of irany job steps, including such librarian programs as: 

• CSERV (core image library service) to punch out (or write on magnetic 
tape or disk) programs from the core image library during maintenance. 

• SSERV (source statement library service) to punch out (or write on 
magnetic tape or disk) macro definitions. 

• RSERV (relocatable library service) to punch out (or write on magnetic 
tape or disk) the relocatable modules used to build IBM-supplied 
processor programs. 

• DSERV (directory service) to display on SYSLST the current contents of 
one or more library directories and their remaining library capacities. 

• MAINT (library maintenance) to delete and/or catalog library elements, 
and also to condense and reallocate (2311) library extents. 

• CORGZ (copy or merge and organize) to selectively copy or merge one 
disk pack onto another disk pack, with the option of allowing 
larger /smaller allocations for each library of the new pack. 

The sequence of job steps depends on the configuration available and the 
operational packs each user is building. Certain activities are common to 
many users: 

1. The general system generation procedure is: 
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a. Initialize the disk pack to contain the system. 

b. For disk and tape users, restore the IBM-supplied tape onto disk. 
For two disk drives and no tape drives, copy the IBM- supplied disk 
to another disk to obtain backup. 

c. Retrieve sample problems. 

d. Delete unwanted programs from the system (all libraries). 

e. Allocate library sizes required. 

f. Set standard labels for SYSLNK, SYSOOl, SYS002, and SYS003 if 
desired. 

g. Assemble supervisor into cards. 

h. Linkage edit and catalog supervisor and IBM components. 

i. Assemble user IOCS modules. 

j. Catalog IOCS modules to the relocatable library. 

k. Delete supervisor and IOCS macros if not desired. 

2. The supervisor generation macro instructions must be keypunched to 
form a single source deck. 

3. DELETR cards are selected or prepared for each relocatable library 
component that the user does not need in his system. 

On a system with at least two disk drives, the user can copy 
selectively rather then delete (DELETR) . To copy selectively, prepare 
the librarian cards in the form: COPYR IJx.ALL. 

4. DEIETS A.xxxxxxxx cards are selected or prepared for each macro 
definition that the user does not need in his system. The list of 
IBM-supplied macro definitions appears in Appendix C . The user may 
wish to retain certain low-usage macro definitions, such as supervisor 
generation macros, only on his system maintenance pack, rather than on 
his operational pack(s). The books, Z.DELETECL, Z.DELETERL, 
Z.DELETESL and Z.LINKEDIT, can be retrieved through SSERV. These 
books contain the necessary statements for the user to delete or 
linkage edit selectively any components from the system. A pause card 
is read immediately before a deletion or linkage-edit job is 
performed. This allows the user to enter EOB to perform the job or to 
type in CANCEL at the 1052 printer keyboard to bypass that deletion or 
linkage edit. If a user does not wish to go through the complete book 
performing selective jobs, he can choose only those cards he needs 
from the book. 

5. After a component is linkage edited into the core im.age library of a 
single drive system, the user can free a large extent on any 
operational pack 1:^ deleting the modules from the relocatable library 
used to build the component. The delete book Z.DELETERL can be used 
to perform this step. However, the user must then rebuild the 
relocatable library of the pack prior to updating a component, by 
entering the appropriate modules either from cards, magnetic tape, or 
disk. On a system without magnetic tape this tradeoff must be 
carefully considered: disk tracks made available vs. speed and 
simplicity of component maintenance. 

6. To use the COBOL, PL/I, and RPG languages, the user must ensure that a 
certain collection of IOCS modules are available in the relocatable 
library of each operational pack. These modules are preassembled and 
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supplied in the relocatable library. Certain of these IOCS modules 
are linkage edited into each COBOL, PL/I or RPG object program. These 
modules are generated using the following macro definitions supplied 
by IBM: 

CD NOD Card Reader/Punch 

PRMOD Printer 

NTWOD Magnetic Tape 

SDMODxx Sequential DASD. SDMOD consists of ten similar macro 
definitions: SDMODFI for sequential disk with fixed 
input, SDMODFO for sequential disk with fixed output, etc. 
A complete description of SDMODxx is contained in the 
Supervisor and Input/Output Macros publication. 

ISMOD Indexed Sequential DASD 

DAMOD Direct Access Method, DASD 

DIMOD Device Independent Module 

Assembler- language users can assemble these IOCS functions directly 
into their application programs, or the IOCS modules can be assembled 
separately and cataloged into the system relocatable library. The 
assembler also supports PTMOD, ORMOD, and MRMOD. Separate assembly of 
IOCS modules requires no additional main storage or additional 
execution overhead in speed. Those modules, shipped pre-assembled for 
IBM components, can also be used by any other program, if applicable. 
A separate assembly is preferable for most users because: 

• Program assembly and reassembly time is minimized. 

• Many IOCS modules will already have been assembled for COBOL, PL/I 
and RPG programs. 

• Use of preassembled IOCS modules facilitates program maintenance 
and standardization. 

• The xxMOD macro definitions just cited require a substantial 
number of cylinders in the source statement library. 

The corresponding generated modules ordinarily require fewer 
cylinders in the relocatable library. Thus, users may prefer to 
retain xxMOD macro definitions only on the system backup volume, 
cataloging a selection of generated modules onto each operational 
volume. 

During each system generation and maintenance procedure, system 
libraries are periodically copied onto magnetic-tape reels, disks, or 
cards to provide backup in case of subsequent specification errors or 
machine errors. Users may omit these backup procedures, but the 
indicated maintenance procedures and any additional precautionary 
procedures desired by the user should be followed. 

The following IBM System/360 Basic Programming Support Utility 
Programs may be required for system generation and should be ordered 
with the initial distribution volume, depending on the configuration 
of the system. Each EPS utility must be loaded from cards by a 
separate IPI procedure. 
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• Distribution Program 360P-UT-208 

• Initialize Disk 360P-UT-206 

• Copy Disk-to-Tape 360P-UT-061 
Restore Tape-to-Disk 

• Copy Disk-to-card 360P-UT-062 
Restore Card- to- Disk 

• Initialize Tape 3 6 OP- UT- 057 

• Universal Character 

Set 360P-UT-048 

• Initialize Data Cell 360P-UT-204 

8. Users are encouraged to perform a DSERV or check a system directory 
printout to determine the contents and sizes of the system libraries 
during system generation- This procedure enables the user to 
determine that enough blocks remain for linkage edit and catalog 
procedures. A DSERV requires the following control statenents: 

// JOB DSERV 
// EXEC DSERV 

DSPLY ALL 
/* 

A printout of the system directory is provided automatically 
following a linkage edit with an OPTION CATAL specified or any // EXEC 
MA INT. 

9. The initial system volume from IBM contains the volume serial number 
mill. 

If the IBM-supplied volume is a tape, the user must initialize the 
disk pack with his volume serial number before restoring the tape to 
the disk« The standard labels (DLBL and EXTENT statements) shown for 
the examples are adequate for system generation. However, the EXTENT 
statement must be adjusted to reflect the user's volume serial number. 

To use the standard labels for configurations with two disks, 
SYSLNK, SYSOOl, SYS002, and SYS003 can be assigned to the second disk. 
The standard labels shown in the following discussions assume the VTOC 
to be on Cylinder 199 of the residence volume. Following system 
generation, standard label assignments should be set that will be 
adequate to support the user's installation requirements. 

The following rules must be observed when extents are assigned to 
Autotest work files: 

• The extents for IJSYSOl, IJSYSAT, and IJSYSLN must always be 
unique, 

• The extent for IJSYSAT and IJSYSLN must be on the same device but 
need not be contiguous. 

• The extents for IJSYSAT may be the same as those for IJSYS02 or 
IJSYS03. 

• When the job is to compile-and-execute, the extents for IJSYSLN 
must be different from those for IJSYS02 or IJSYS03. 
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10- standard labels (OPTION STDLABEL) have been defined on the systeir 

distributed by IBM for SYSLNK and SYSOOl. Appendix G discusses the 
format of the supplied system volume. 

A reply of delete to the following message will destroy the system 
residence file unless it is encountered during an allocate (ALLOC) 
run: 

DOS SYSTEM RESIDENCE FILE 
UUUUA OVERLAP ON UNEXPIRED FILE 

The core image library allocations on the IBM-supplied volume (s) 
are not sufficient to contain all of the system components on a 2311. 
The adequacy of allocations can be determined through the use of 
Appendix G . Refer to Appendix C for core image phase names, 
relocatable module names, and source statement macro names. Phases, 
modules, and macros are identified by component. 

Also included in Appendix C are those statements required to 
linkage edit and delete each component. 

11. If the installation-tailored supervisor does not exceed the SEND 

address of the IBM-supplied supervisor, linkage editor, librarian, and 
assembler do not need to be linkage edited and cataloged again to the 
core image library. 
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IBM BPS Utility Programs 



At the end of system generation, the user is advised to copy the system 
volune for operational volume backup. To restore the volumes to a disk 
pacKr the IBM BPS copy and restore or the distribution program utility 
programs should be used. The user should be familiar with the BPS utility 
publications as listed on the front cover of this publication. The 
following control information must be inserted in the program deck to 
operate these programs: 

Note : The channels used by the BPS supervisors are: 

Multiplexor (channel 0) 
Selector 1 
Selector 2 



Copy and Restore 

• The following job control cards must be placed in the program deck 
before the first card containing a D in Column 7 3. 

Copy Disk-to-Tape or Card Utility Programs 

// JOB CDSK\TPJ 

// VOL SYSIPT,UIN 

// DLAB (must describe the format one label for SYSRES in the 

SYSRES VTOC) 
// XTENT 
// CONFG 001 

// ASSGN SYSIPT,X'cuu\dd 
// ASSGN SYSOPT,X*cuur,dd,X*ss* 
// ASSGN SYSFDR,X'cuuV, dd,X'ss* 
//'ASSGN SYSLST,X'cuu* ,dd 
// ASSGN SYSLOG„X*CUuV,dd 
// DATE 68110 
// EXEC 

Restore Card or Tape-to-Disk Utility Programs 

// JOB R(TP/DSK 

// CONFG 001 

// ASSGN SYSIPT,X'cuu' ,dd,X'ss' 

// ASSGN SYSOPT, X*cuu»,dd 

// ASSGN SYSLST,X*CUuV,dd 

// ASSGN SYSRDR,X*cuuV, dd 

// ASSGN SYSLOG,X'cuu' ,dd 

// DATE 68110 

// EXEC 

Note : For the BPS description (dd) parameter see Appendix F . 

• The following utility modifier card must be placed in the program deck 
before the first card containing an E in Column 73. This card is used 
only for the copy programs and must be omitted from the program deck 
for the restore program. 
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//bUCRbTF, A= ( 1 600 ) , N= ( 1 ) , OL, IPL, LOG 

The Copy Disk to Card and Restore Card to Disk programs have the 
ability to be restarted if required. Refer to the BPS DASD utility 
publication referenced on the front cover of this publication. 

Note: In this control card b indicates one blank space. 

The following operating procedures are required for running the 
IBM-supplied utility object programs: 

1- Ready the necessary I/O units. 

2. Set the console switches as follows: 

a. ROS CONTROL, RATE, ADDRESS COMPARE, and CHECK CONTROL TO PROCESS. 

b. The three Load-Unit switches to the address of the card reader 
used for loading the program. 

3. Loading of the utility progreim. 

a. Check the preceding units and settings; then press the 
System-Reset key. 

b. Place the object deck with control cards in the reader hopper. 

c. When the reader unit is ready, press the console Load key. 



Distribution Program 360P-UT-208 

The distribution program can be used to copy a DOS system to tape for 
backup. The resulting tape is a self loading tape that is similar to the 
IBM-s\:pplied system tape. The only difference in the tapes is in the 
contents of the systems. The tape produced by this program has the 
following format: 

• IPL 

• Initialize disk program 

• Tapemark 

• IPL 

• Restore program 

• File identification record 

• File label information 

• Disk file (DOS system) 

• Tapemark 

When restored to a disk pack, this tape will not only restore the system 
as it was copied, but will also initialize the pack to which it is being 
copied. The instructions for restoring the system to a disk are the same 
instructions for restoring the IBM-supplied system to a disk pack before 
performing system generation. 
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COPYING A SYSTEM TAPE TO DISK 
To c»pY a DOS system to tape: 

• Mount the DOS system and a tape. 

• The following jot control cards must be placed in the program deck 
between the cards containing ID numbers C208 and D208 in columns 73-76 

• Place the deck in the card reader. 

// JOB DISCPY 

// DATE 68110 

// ASSGN SYSLOG, X ' cuu • , dd 

// ASSGN SYSLST,X'cuuV,dd 

// ASSGN SYSOOO,X'cuu',dd (disk) 

// ASSGN SYS001,X'cuu' ,dd[ ,X'ss*] (tape) 

// CONFG 001 (optional, 16K assumed) 

// EXEC 

Note: For the BPS description parameter (dd) see Appendix F . 

• The following utility modifier card must be placed immediately 
following the program deck: 

//bUDSb* field one of format 1 DASD file label au-characters ' Col, 53 

• Dial on the console the address of the card reader. 

• Check the units and settings; then press the System-Reset key. 

• Press the console load key. 

• When the Wait light comes on, press Start and EOF on the card reader. 



RESTORING A SYSTEM TAPE TO DISK 

The IBM-supplied system residence tape must be copied onto a disk pack 
before system generation can be performed. The pack that is to contain the 
system must be initialized with a volume label and a volume table of 
contents (VTOC). If the disk pack is not initialized or if the VTOC is not 
at cylinder 199, the pack must be initialized. 



INITIALIZE DISK 

The following instructions and control cards will allow the user to 
properly initialize his disk: 

• Mount the distribution tape. 

• Place the following control cards in the card reader, in the sequence 
shown: 
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Card Col. 1 

} 

Card 1 // JOB INTDSK 

Card 2 // DATE yyddd yy = 00 to 99 decimal 

ddd = 001 to 366 decimal 

Card 3 // ASSGN SYSOPT,X' cuu* ,Dd 

cuu = channel and unit of disk drive 
Dd = Dl for 2311 or D3 for 2314 

Card 4 // ASSGN SYSLOG,X' cuu» ,C1 

cuu = channel unit 1052 

Card 5 // EXEC 

Card 6 // UIDbIR,Cl 

Card 7 // VTOC STRTADR=( 0199000) ,EXTENT= (y) 

y = nuirber of tracks allotted 
to VTOC in decimal (1-10). 

Card 8 VOLlnnnnnn nnnnnn = Volume serial number 

Columns U2-51 are reserved for user's 
identification. 

Card 9 // END 

• Dial on the console the address of the tape unit containing the 
distribution tape into the CPU load address switches. 

• Press Load. 

• When the Wait light comes on, press Start and EOF on the card reader. 

• The message EOJ will be printed on the 1052 printer-keyboard when 
initialization is complete. The system can then be copied on the disk 

BYPASS INITIALIZE DISK 

If the disk has previously been properly initialized, the Initialize Disk 
procedure can be omitted and the following procedure performed to bypass 
the initialize disk routine: 

• Mount and ready the distribution tape. 

• Place the following control cards in the card reader in the sequence 
shown: 

Card Col. 1 



1 

Card 1 // JOB INTDSK 

Card 2 // DATE yyddd yy = 00 to 99 decimal 

ddd = 001 to 366 decimal 

Card 3 // ASSGN SYSLOG, X' cuu* ,C1 

Card 4 // LOG 
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Card 5 // ASSGN SYSIPT,X*cuu* ,Tz [,X' 90* ] 

cuu = channel and unit 

z = 2 for 9- track tape 

z = 1 for 7-track tape 

The X*90' entry is 

required if z = 1.. 

Card 6 // FILES SYSIPT, 1 

• Dial the address of the tape drive containing the distribution tape in 
the CPU load address switches. 

• Press Load. 

• When the Wait light comes on, ready the card reader containing the 
control cards by pressing Start and EOF. 

• The tape will forward-space past the initialization program and the 
following message will appear on SYSLOG: 

OOOC 
4 000A 



RESTORE A SYSTEM TAPE TO DISK 

Following initialization or bypassing initialization of the disk pack, the 
IBM-sipplied system tape can be restored to disk by this procedure: 

• Do not rewind the distribution tape. 

• Clear the card reader. 

• Place the following control cards in the card reader: 

Card Col. 1 



1 

Card 1 // JOB DISRST 

Card 2 // DATE yyddd yy = 00 to 99 decimal 

ddd = 001 to 366 decimal 

Card 3 // ASSGN SYSOOO,X*cuu' ,Dd 

cuu = channel and unit of 
the initialized disk 
Dd = Dl for 2311 or D3 for 2314 

Card 4 // ASSGN SYSLST, X'cuu* ,L1 

Card 5 // ASSGN SYSLOG, X' cuu' , CI 

Card 6 // EXEC 

• IPL from the distribution tape and press Load on the console. 

• When the Wait light comes on, ready the card reader by pressing Start 
and EOF. 

• The following message appears in SYSLOG: 

uauuA 

Type in 4 (S) , and press INTERRUPT to continue. 
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If the message END OF VOLUME ON SYSIPT 3111 A occurs while restoring a 
multivolume file, ready the next reel on SYSIPT reply 22 and press 
interrupt to continue. This message will not be encountered if the 
second volume of a two-volume system distribution is mounted on an 
alternate drive assigned to SYS00 2. 

// ASSGN SYS002,X'cuu' ,TZ 

When the job is finished, the following message is printed on the IBM 
1052 Printer-Keyboard and the disk pack is ready for system generation; 

DOS SYSTEM RESIDENCE FILE 

nnnnnn RECORDS RESTORED FOR ABOVE FILE 

3007 

END OF JOB 

3008 
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Macro Instructions for Generating a Supervisor 



Using the IBM-supplied volume, each installation normally generates a more 
efficient supervisor using the supervisor generation macro instructions. 
The macro instructions describe the machine configuration, standard I/O 
assignments, and standard processing options. 

This section defines the ten macro instructions and their parameters 
required to generate an installation-tailored supervisor for the Disk 
Operating System. Figure U is a consolidated list of the supervisor 
generation macros discussed. 



RULES FOR USING SUPERVISOR GENERATION MACROS 

1. The assumed value for an omitted parameter is underlined in the 
following discussion and in Figure U. Figure 5 shows device type 
codes to be used for system generation. 

2- Material enclosed in braces { } indicates a programmer option. One of 
the enclosed values must be selected by the programmer. 

3. Bracketed operands are optional, e.g., [n]. 

4. Replace the letter n in a parameter with a decimal number. 

5. The name field must be blank. The operation field always contains the 
mnemonic operation code. The operand field contains the parameters. 

6. Several parameters may be included on one line for all macros. 
Separate each parameter with a comma. No embedded blanks are 
permitted. Continuation cards are permitted (nonblank character in 
column 72; the continue column is column 16). 

7. In the expression X'cuu', replace cuu with the hexadecimal number for 
channel and unit. 

8. The macros must be issued in the following sequence: SUPVR, CONFG, 
STDJC, FOPT, PIOCS, ALLOC, lOTAB, DVCGEN , ASSGN , SEND. 

9. The DVCGEN, ASSGN, and ALLOC macros are not required. They are 
specified if input/output tables (DVCGEN) are being specified, if 
standard assignments (ASSGN) are being made or if storage is allocated 
(ALLOC) for MPS at system generation time. 

10. An END card and a /* card must follow the SEND macro instruction. 



SUPERVISOR 



SUPVR This macro instruction and its parameters define the 
system as disk resident and its ability to perform 
multiprogramming, MICR or Teleprocessing. 



Macro Instructions for Generating a Supervisor 33 



Parameters for SUPVR 



SYSTEM= DISK Always used with the SUPVR macro instruction. 

SYSTEM=DISK is assumed if this parameter is omitted. 

( N0| 
NPS=<YES 

(bjf) Specify if there is to be multiprogramming support. 
When YES or BJF is specified the systenri generated is 
capable of supporting two foreground programs. YES 
or BJF must be specified if TP=QTAM. When BJF is 
specified, batched job environment will be supported 
for both foreground partitions. Multiple 
communication regions are generated only if BJF is 
specified. MPS=YES is implied if MPS=BJF is 
supplied. 

( m\ 

TP=< BTAM> 

(QTAMn) Specify if Teleprocessing support is desired and if 
so, whether Basic or Queued Access Method (BTAM or 
QTAM) is desired. When QTAM is specified, SVC 
support for BTAM is also included, n is the maxiirum 
number of QTAM message processing programs in the 
system at one time. n may have any value from 2 to 
12. 

no) 
im2 ( 

WICR=^ 1419 ( 

1U19d) Specify if the supervisor is to support magnetic ink 
character readers. If both lU12's and 1419 's are 
present, indicate 1419. If 1259 's are to be 
supported, also indicate 1419. 1419D indicates Dual 
Address Adapter 1419 's. If 1412/1419 's are attached 
to the multiplexor channel, the PIOCS parameter 
BMPX=YES is not supported. 1419 support gives 1259 
capability. 

AP=| no) 

(YESj Specify if there is to be multitasking support. 

Multitasking allows the execution of more than one 
program within a partition. MPS=YES and WAITM=YES 
are assumed if AP=YES. 

EU=| NO) 

\YESj Specify if the IBM 1401/1440/1460 Emulator program i£ 
to be executed. The MODEL operand in the CONFG macrc 
can be MODEL=25, or MODEL=30 for IBM Model 2025, and 
it must be MODEL=30 and MODEL=40 for IBM Models 2030 
and 2040, respectively. 



CONFIGURATION 



CONFG This macro instruction and its parameters define the 
system configuration and can be used to specify 
generation of optional supervisor services. If the 
assumed options are all satisfactory, the only entry 
required is the CONFG m.acro itself without any 
parameters. 
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Parameters for CONFG 



/3p). 
MODEL=innJi Specify the model number of the system (nn=30, UO, 
etc)- If MICR support is required on a Model 65, 
MODEL=65 should be indicated for maximum performance. 
If mOl/lUUO/1460 emulator program support is desired 
for the: 

• IBM Model 2025, specify MODEL=25 or HODEL=30. 

• IBM Model 2030, specify MODEL=30. 

• IBM Model 2040, specify MODEL=U0. 

i—\ 
SP= (YESj Specify if the storage protection feature is 

available to the system. YES is assumed if the 

MPS=YES or MPS=BJF parameter is specified in the 

SUPVR macro. 

I NO) 
DEC=(.YESj Specify if the decimal feature is present. 

FP= (YESj Specify only if the floating point feature is 
present. 

TIMEF=(YESj Specify if the timer feature is present. If YES is 
specified, GETIME support is provided. 



JOB CONTROL OPTIONS 



STDJC This macro instruction and its parameters specify the 
standard settings for job control. If the assumed 
options are all satisfactory, the only entry required 
is the STDJC macro instruction itself, without any 
parameters. These standard options can be locally 
overridden by an OPTION statement. 



Parameters for STDJC 



iYES] 
DECK=( NOj Specify if language translators are to output object 
modules on SYSPCH. 

/yes I 
LIST=\ no/ Specify if language translators are to write source 
module listings and diagnostics on SYSLST. 

i ^\ 
LISTX=tYESj Specify if compilers are to write hexadecimal object 

module listings on SYSLST. 

SYM= (YES J Specify if assembler is to output symbol tables on 
SYSPCH. SYM=YES must be specified if the PL/I 
compiler is to produce a symbol and offset table 
listing. 

I yes) 

XREF=( no/ Specify if assembler is to write symbolic 
cross-reference lists on SYSLST. 
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/ yes) 

ERRS=). NO/ Specify if compilers are to summarize all errors in 

source prog raits on SYSLST. Assembler and PL/ 1 always 
assume ERRS=YES. 

/48Cl 
CHARSET=l60cf Specify either the 48- or 60-character set for PL/I 
translator input on SYSIPT. 

I yes) 

LOG=\ no/ Specify for a listing of all control statements on 
SYSLST. LOG=NO suppresses the listing of all job 
control statements on SYSLST. 

/ yes \ 

DUMP=\ NOj Specify if a dump of the registers and main storage 
is to be written on SYSLST in the event of an 
abnormal program end, cancel, or program check. 



/56| 
>=lnn/ 



LINES=innj Specify the number of lines per page on SYSLST. The 
minimum is 30; the maximum is 99. 



/ mdy ) 

3= iDKYj 



DATE= tDKYJ Specify the format of the date MDY=month/day/year . 
DMY=day /month/year . 

OPTIONAL features IN THE SUPERVISOR 

FOPT This macro and its parameters specify additional 
optional features that can be included in the 
supervisor. 

Parameters for FOPT 

0C= (YESJ Specify if external interruptions (except timer) can 
be handled by problem programs. If YES is specified, 
the facility is available to all programs in MPS. 
The Tape Compare Utility program requires OC=YES. 
YES is required if emulator program operator services 
are to be requested through the INTERRUPT key. 




Specify if the interval timer can be handled by 
problem programs- When interval timer facilities are 
available (i.e., IT=BG, Fl or F2) TIMER=YES is 
assumed for the CONFG macro. Timer support is 
available to only one program in MPS. QTAM requires 
Fl. 

i ^\ 
PC= (.YESj Specify if a user program check routine will be used. 

Included in supplied supervisor because QTAM, 

FORTRAN, Basic FORTRAN, COBOL, PL/I, RPG, and 

Autotest require PC=YES. 



3=1 nf 



TEB=\ n) Specify if tape error statistics are to be 

accumulated and logged where n is the number of tape 
drives and/or tape cartridge readers attached to the 
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system. Allow extra TEBs for possible future 
expansion of the systeiti. The maximum number is 254. 

( NO) 
SKSEP=<YES> Specify if SEEKs are to be separated from the 

[ n) remainder of channel programs. Seek separation 

allows other devices on the channel to oe accessed 
(including other seeks) during the seek. YES 
indicates support for all DASD type devices specified 
by the DVCGEN macro at system generation time. n is 
the number of DASD devices to be supported and cannot 
be less than the number of DASD devices specified at 
system generation. The maximum is 254. 



( NO 

ce=<;yes 

Specify the nuirtber of bytes to be allocated to the 
customer engineer serviceability routines. The 
minimum number of bytes that can be specified for n 
is 600. For the actual number of bytes allocated see 
Appendix G . 

I NO) 
= (YESj Specify if the Physical Transient Overlap (PTO) 

feature is to allow the system to select tasks while 
Fetch is reading a fetched (or loaded) phase from the 
system residence file, or while I/O operations are 
being performed during Error Recovery Procedures 
(ERP) . This overlap allows increased throughput. 
MPS=YES or BJF must be specified. 



PTO 



CBF 



=m 



Specify I/O requests are to be buffered under the 
following conditions: 



1. The actual record to be written does not exceed 
80 characters. 

2. Data or command chaining is not perfojrmed. 

3. The CCB associated with this operation does not 
indicate the acceptance of unrecoverable I/O 
errors, posting at device end, or user error 
routines. 



i NO) 



^. The CCB does not request sense information. 

Console buffering allows overlap of CPU processing 
with write operations to SYSLOG by satisfying the 
requestor's WAIT immediately, rather than at I/O 
completion time. When this option is selected, the 
number of CHANQ entries should exceed the number of 
CBF entries so that the buffering process is not 
bound by the number of CHANQ entries. If the assumed 
option is taken for CHANQ and CBF is selected, the 
number of CHANQ entries will be assumed to be six 
more than the CBF entry. Numbers 1 through 9 are 
valid, and one is assumed if the operand is invalid. 



CCHAIN=\yesj Specify if command chaining support for retry on I/O 
operations is to be handled. When command chaining 
and an error occurs, CCHAIN allows the user to retry 
.at the last CCW executed. Normal retry would return 
to the first CCW in the channel program. To make use 



Macro Instructions for Generating a Supervisor 37 



of this option the user must have the appropriate bit 
set in the CCB. CCHAIN=YES must be specified if data 
or command chaining of IBM 2495 Tape Cartridge Reader 
input is performed. 
TRKHLD=n Specify if the track hold function is to be 

supported. When processing sequential disk workfiics 
or updates to direct access files, specify if a hold 
is to be placed on the track of the record being 
read. The hold prevents anyone else that is using 
track hold from accessing that track. The maximum 
number of tracks that can be held at one time is 255. 
The default is 10 if n is an invalid parameter 
(nonnumeric or outside the range 1-255). iMPS=YSS or 
BJF must be specified if TRKHLD=n. 

AB=| no) 

(YESJ Specify if the abnormal termination exit function is 
to be supported. The abnormal termination exit 
allows the user to exit to a user's routine before an 
abnormal end of job causes a program to be cancelled. 

WAITM=/ m\ 

(YESj Specify if the multiple wait function is to be 

supported. This function allows the user to use the 
WAITM macro to wait for one of a number of events to 
occur. WAITiy5=YES is assumed if AP=YES . 

DASDFP=Mn,n, (2311))' 
^ <23m> 

2321) 

Specify if supervisory DASD file protection is 
handled where n,n indicates the range of channels to 
which DASDs may be attached. Either 2311 or 2314 
indicates file protection for both and 2321 indicates 
file protection for 2311, 231U, and 2321. If 2311, 
2314, or 2321 are omitted, both 2311 and 2314 are 
assumed. DASDFP prevents the user from writing 
outside the extents of his file in case of program 
error. Extents are protected to the nearest cylinder 
except for 2321, where they are protected to the 
nearest head bank. This feature does not protect the 
file from being overwritten. 



X: 



NO ) 

*SYSFIL=^(r231l\ [,ni,n2]) 
12314/ ' 



Specify if system input and system output (SYSRDR, 
SYSIPT, SYSLST, SYSPCH) files may be assigned to a 
2311 or 2314. Specification of either gives support 
for both. If MPS=BFJ in the SUPVR macro, this 
parameter supports foreground logical units when 
running in batched mode. If the emulator program 
parameter SYSIO=222 or SYSIO=333 is indicated, a 
value must be specified for SYSFIL. 

n^ = residual capacity for beginning of operator 
notification when SYSLST assigned to disk. 
100<ni<65535. If n^ is omitted, 1000 is 
assumed. 

Uz - residual capacity for beginning of operator 
notification when SYSPCH assigned to disk. 
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100<n2^65535. 
assumed. 



If Uz is omitted, 1000 is 



♦Valid when 2UK bytes of main storage are available. (See PL/I variant for 
the conditions governing logical units assigned to a disk.) 

Note : Information on the macro instructions STXIT, EXIT, and SETIME is 
contained in the Supervisor and Input/Output Macros publication. 



PHYSICAL IOCS 



PICCS This macro instruction and its parameters define 
the configuration requirements to be supported by 
physical IOCS. If the assumed options are all 
satisfactory, the only entry required is the PIOCS 
macro itself, without any parameters. 



Parameters for PIOCS 



|YES| 
SELCH=(. NOj Specify if selector channels are attached to the 
system, 

( NO) 
BMPX= (YESj Specify if burst mode devices will be supported on 
multiplexor channel. If YES is specified, 
unbuffered devices will not multiplex. If 
1U12/1U19S are attached to multiplexor channel, 
BMPX=YES is not supported. 

( NO) 

CHANSW=< RWTAU> 

(tswtch) Specify if channel switching tape control unit, 
RWTAU = 2404 or 2804, TSWTCH = 2816. If either 
2403 or 2803 and 2816 is specified, RWTAU must be 
specified. If a 2804 is specified, RWTAU must be 
specified. If a 2816 is specified, TSWTCH must be 
specified. 

J NO 
TAPE=< 9 

1) Indicates required tape PIOCS support. 

9 = nine track only. 

7 = seven or nine track. 



NO = No tape drives attached, 
value. 



This is the assumed 



ALLOCATE 



ALLOC Fl=nK, F2=nK 



Specifies storage partitioning MPS, where n must 
be a multiple of 2. This macro is optional. Most 
IBM components require lOK bytes of background 
area. Foreground area must be a minimum of lOK to 
allow BJF processing. 
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INPUT/OUTPUT TABLES 



lOTAB This macro instruction and its parameters define 
the area for the necessary device tables for the 
system. If the assumed options are all 
satisfactory the only entry required is the lOTAB 
macro itself without any parameters. 



Parameters for lOTAB 



BGPGP= ( nj Specify the number of logical unit blocks (LUBs) 

for programmer units, i.e., the number of symbolic 
programmer logical units (SYSOOO-SYSnnn) . The 
minimum value generated is 10. The maximum value 
generated is 222. 



A^ 



FlPGR=\nj Specify the number of symbolic units of the class 
SYSnnn for Fl. Valid only for MPS. Otherwise 
zero is assumed. The maximum value is 222. 



i= In/ 



F2PGR= (nj Specify the number of symbolic units of the class 
SYSnnn for F2. Valid only for MPS; Otherwise 
zero is assumed. The maximum value is 222. 



.m 



JIB= (nj Specify the number of job information blocks for 
the system ( JIBs) . One is required for each 
logical unit temporarily reassigned by a // ASSGN 
statement that differs from standard system 
assignment (i.e., established by the operator at 
IPL time) . One JIB is required for each alternate 
logical unit assignment. One JIB is required for 
each open 2311 extent with the DASD file protect 
feature except for system input/output extents. 
Two JIBs are required for each open 2321 extent 
with the DASD file protect feature. The minimum 
value generated is 5. The maximum value generated 
is 255. 
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CHANQ 



= { 



6 or 6+CBF ) 



lODEV 






Specify the number of entries in the channel 
queue. The iriniinuin value generated is 6 . If the 
assumed option is to be taken and CBF is to be 
specified, the assumed option will be six more 
than the CBF entry. The number of the channel 
queue should exceed the total number of I/O 
requests the user wishes to accumulate 
simultaneously. The start I/O comrrands for all 
channels are stored in this queue. The maximum 
value is 255. 



Specify the number of I/O devices attached to the 
system. The maximum is 255. The minimum Value is 
5. 



Note: The sum of BGPGR + FIPGR + F2PGR LUB's must not exceed 222. 



INPUT /OUTPUT UNITS 



DVCGEN This macro instruction and its parameters define 
the physical input and output units attached to 
the system. This macro instruction is optional. 



Parameters for DVCGEN 



CHUN=X*cuu' 



DVCTYP=xxxxxx 



Specify the hexadecimal number of the channel and 
unit for the device. 

Specify the device type. Figure 2 contains the 
codes for each IBM- supported device. 



I ml 

CHANSW=(YES/ Specify if the device is attached to more than one 
selector channel. Indicates if the device can be 
switched (IBM 2816, 2804 or 2404 available). 
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MODE=X'ss' 1 



2400T9. MODE is used to specify the tape 
mode. X'CO' is the default value. 



2. 2400T7. MODE is used to specify the tape 
mode. X'90* is the default value. 



MODE designates the SADxxx command, 
is the default value. 
SADO 
SADl 
SAD 2 
SAD3 



3. 2702. 
X'OO' 
X*00' 
X'Ol* 
X'02* 
X'03* 
See Appendix A for other values of ss. 

U. 2260 (Local) . MODE is used to specify the 

1053 printer when CHUN=X*cuu' refers to a 1053 
attached to a 2848. The operand must be 
entered as MODE=X*01*. 

5. 1412/1419/1259. MODE designates the external 
interrupt bit associated with magnetic ink 
character readers. The mode X'Ol* through 
X'20' correspond to external interrupt PSW* 
bits 31 through 26 respectively. For the dual 
address adapter 1419, this parameter is needed 
for both 1419P and 1419S. 



Rules for Using DVCGEN 



X' 


01' 


Device 
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to 


external 


line 
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X* 
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Device 
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1. A separate DVCGEN macro instruction is required for each device. For 
a 2314, each individual unit needs a DVCGEN card. 

2. The total number must not exceed the total number of devices specified 
in the lODEV parameter of the lOTAB macro. 

3. DVCGEN macros must be specified in ascending channel address sequence. 

4. Switchable units (attached to more than one selector channel) must be 
defined once on the lowest channel by which they are addressable. 

5. The sequence of the DVCGEN cards determines the priority of the 
devices on their channel. SYSRES should be the first DVGEN card if it 
is to have the highest priority. Switchable units must be the last 
devices specified for each channel, and must be on consecutive 
channels. 



6. The specifications of these macros can be altered at IPL by ADD and 
DEL statements. 

7. IBM 1052 Printer-Keyboards that are not on-line but were defined by 
DVCGLN statements must be deleted by DEL statements when performing 
IPL from the card reader. 
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ASSIGNING SYMBOLIC DEVICE NAMES TO ACTUAL I/O DEVICES 



ASSGN This macro instruction and its parameters assign 
symbolic device names (LUBs) to physical I/O 
devices (PUBs) . A separate macro instruction is 
required for each symbolic device name with a 
standard system generation assignment. This macro 
instruction is optional. 



Parameters for ASSGN 

SYSnnn,X*cuu' Symbolic-name will be any of the system background 
logical units (SYSIPT, SYSLOG, etc) or programmer 
logical units (SYSOOO, SYSOOl, etc). X'cuu' is 
the hexadecimal number of the channel and unit to 
which the symbolic device is attached. A separate 
macro is required for each standard assignment 
desired. Programmer assignments are made only for 
background jobs. 

System input/output units (SYSRDR, SYSIPT, SYSLST, or SYSPCH) that are 
assigned to a tape or DASD when the system is generated will be unassigned 
by IPL. An unassigned device can cause a job to be canceled. 

END OF SUPERVISOR MACRO INSTRUCTIONS 

SEND (n) This macro instruction indicates the end of the 
supervisor, n is a multiple of 8 and cannot be 
greater than 32,760. 

Figure 2 illustrates protected and unprotected 
supervisor storage generated by various 
combinations of supervisor options that affect 
storage protection- 

The supervisor consists of two parts: 

• the nucleus that extends from the address 
SYSSOO to NUCEND, and 

• the combined transient area, CE Serviceability 
Programs (CE=YES) , and save area that extends 
from the address SYSEND to PPBEG (Figure 2A) . 
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SYSSOO 




SEND 
A 

NUCEND^SYSEND 

A 



SP=NO 



\ Supervisor 



PPBEG 



Not Used 



EOSSP 2K Boundary 

SEND 

Problem 
Program 



NUCEND> 
SYSEND 



NUCEND 
SYSEND 




Portion 
Overlaid 






Not 
Protected 




SEND n 

— A_- 



NUCEND< SYSEND 
A 



SP=NO 




SP=YES 




^ Not 
/Protected 




Figure 2. Unprotected Supervisor Storage Generated 





SEND,SP=NO (Figure 2B) 

If the operand n is not specified (Figure 2B) , 
the address of NUCEND equals the address of 
SYSEND. Programs that are linkage edited to 
the end of the supervisor begin at PPBEG 
(Figure 2B) . No space is provided for 
supervisor expansion, and growth in the 
supervisor will necessitate re-linkage editing 
user programs at the end of the supervisor. 
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SENDn,NUCEND>SYSEND (Figure 2F)/ 
SENDn,NUCEND=SYSEND (Figure 2G)/ 
SENDn,NUCEND<SYSEND,SP=NO (Figure 2H) 

If the operand n is specified (Figure 2F-2H) , 
the address of NUCEND can be greater than, 
equal to, or less than the address of SYSEND. 



1. If NUCEND is greater than SYSEND (Figure 
2F), a portion of the transient area 
overlays the supervisor nucleus. n irust 
be increased, and the supervisor 
reassembled. 



2. If NUCEND is equal to SYSEND (Figure 2G) , 
the result is identical to the case where 
n was not specified (see Figure 2B) and 
the effect is also the same. 

3. If NUCEND is less than SYSEND (Figure 2H), 
the area between SYSEND and NUCEND is not 
used and is available for future expansion 
of the supervisor. The difference between 
SYSEND and NUCEND is the number of bytes 
the supervisor may expand without having 
to re-linkage edit programs at the end of 
the supervisor. 

SEND,SP=YES (Figures 2C, 2D, and 2E) 

SENDn, NUCEND <SYS END, SP=YES (Figures 21, 2J, and 

2K) 

If Storage-Protect (SP=YES) is specified, the 
End -Of -Supervisor Storage-Protect (EOSSP) 
address is the first storage protect boundary 
after the SYSEND address when MPS=NO. When 
MPS=YES or BJF, the end of the supervisor will 
be the first storage protect boundary after 
the PTA address. The EOSSP address may be 
less than, equal to, or greater than the PPBEG 
address (end of supervisor) . 

1. If the EOSSP address is less than the 
PPBEG address, the area between these two 
addresses is not storage-protected. This 
will happen if the combination of MPS=NO 
and CE=YES was chosen (Figure 21) , and may 
happen if the: 

a. SEND address is not specified (Figure 

2C). 

b. SEND address specified is not a 

multiple of 2048 bytes (Figure 21). 

2. If the EOSSP address is equal to the PPBEG 
address, the entire supervisor is 
storage- protected. This happens if the: 

a. SEND address is not specified and the 

PPBEG address is a multiple of 2048 
bytes (Figure 2D), or 

b. SEND address specified is a multiple 

of 2048 bytes (Figure 2 J) . 
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If the EOSSP address is greater than the 
PPBEG address, the entire supervisor is 
storage- protected. The area between the 
PPBEG address and the ECSSP address is not 
used and is available for future expansion 
of the supervisor. The difference between 
the EOSSP address and the PPBEG address is 
the number of bytes the supervisor may 
expand without having to re- linkage edit 
programs at the end of the supervisor. 
This expansion area is in addition to any 
area between SYSEND and NUCEND. This may 
happen if the: 



a. SEND address is not specified (Figure 
2E), or 



b. SEND address specified is not a 

multiple of 20U8 bytes (Figure 2K) . 



MAXIMUM UNPROTECTED STORAGE 

If SP=YES and a portion of the supervisor is 
not storage-protected (Figure 2C and 21) , the 
user should verify that the unprotected area 
falls within the following limits. 

Figure 3 shows the maximum number of bytes in the area between the EOSSP 
address and the PPBEG address that may be unprotected. 



r T r r 1 

I I CE=NO I CE=YES | CE=n | 



1832 



2480 



1880+n 



MPS=NO 
PTO=NO 
FP= NO/YES 

66U 



1312 



712+n 



MPS=YES/BJF 

PTO=NO 

FP=YES 

632 



1280 



680+n 



MPS=YES/BJF 

PTO=NO 

FP=NO 

120 



760 



160 + n 



MPS=YES/BJF 

PTO=yES 

FP=YES 

88 



72 8 



128 +n 



MPS=YES/BJF 

PTO=YES 

FP=NO 

88 



728 



128+n 



MPS=NO 
PTO=YES 
FP= NO/YES 

L X X ± J 



Figure 3. Maximum Unprotected Area between EOSSP and PPBEG (End of 
Supervisor) Address 
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Operation 



SUPVR 



Operand 



SYSTEM=DISK 



^NO. 



MPS=^'YES 

(bjf 



TP= 



NO 

BTAM 

QTAMn 



/ NO 
MICR='l412 



)1419 ( 
' 1419D' 



AP=/NO} 



(YES. 



EU = /Np 



I YES/ 



Explanation 



Supervisor macro instruction. 



Specify a disk-resident supervisor. 

SYSTEM=DISK is assumed if this parameter is omitted. 



Specify if there is to be multiprogramming support. When YES or BJF is specified 
the system generated is capable of supporting two foreground programs. YES or 
BJF must be specified if TP=QTAM. BJF must be specified if batched job 
environment is desired for foreground partitions. 



Specify if teleprocessing support is desired and if so, whether Basic or Queued 
Access Method (BTAM or QTAM) is desired. When QTAM is specified, SVC sup- 
port for BTAM is also Included, n Is the maximum number of QTAM message 
processing programs in the system at one time, n may be any value 2 to 12. 



Indicates whether the supervisor Is to support magnetic Ink character readers. 
If 141 2/141 9's are attached to the multiplexor channel, the PIOCS parameter 
BMPX=YES Is not supported. 



Specify if there is to be multiprogramming within a partition (multitasking) support. 
Multiprogramming within a partition provides the ability to execute more than one 
program (multitasking) within a partition. MPS=YES and WAITM=YES are assumed 
if AP=YES. 



Specify if the IBM 1401/1440/1460 Emulator program is to be executed. The 
MODEL operand In the CONFG macro can be MODEL =25, 30, or 40. 



CONFG 



MODEL^ 



( nn } 



SP=/NO| 
lYESj 



--{^} 



FP=/NOl 
I YES, I 



TIMER=/NOl 
lYES/ 



Describes the hardware features. 



Specify the model number 



Storage protection feature. YES must be specified for MPS or BJF. 



Decimal feature. 



Floating point feature. 



Timer feature . 



STDJC 



DECK=/YES 



/YES| 
(NO. I 



LIST=/YES) 

I no/ 



USTX.{ig| 



SYM 



_ (NO 



(YES/ 



XREF=JYES 
iNO, 



ERRS= 



/YES) 

I NO I 



Specify standard settings for job control 



Output of object modules of language translators on SYSPCH 



Source module listings and diagnostics from language translators on SYSLST. 



Hexadecimal object module listings from PL/l and COBOL on SYSLST, 



Assembler and PL/l outputs symbol tables on SYSPCH: COBOL compiler outputs 
DATA DIVISION map on SYSLST . 



Assembler outputs symbolic cross reference lists on SYSLST , 



COBOL, PL/l , FORTRAN, and Basic FORTRAN summarize all errors in 
source programs on SYSLST . 



CHARSET= i^^\ 
\ 60C * 



Specify the 48- or 60-character set for PL/l Input on SYSIPT 



Figure U. Macro Instructions for Supervisor Generation (Part 1 of 4) 
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Operation 



LOG 



Operand 

lYES I 

I NO ,' 



Explanation 



Listing of all control statements on SYSLST . 



'^^'^''={^8} 



Dump of registers and main storage on SYSLST. 



LINES 



m 



Number of lines per page on SYSLST . 



DATE =\tm\ 

Idmy/ 



Format of the date . 



FOPT 



Specify optional support in the supervisor. 



•^Hm) 



STXIT option is available for external interrupt (except timer). YES is required for tape compare 
utility program . 



NO 

IBG 

Fl 

F2 



III \ 



STXIT option is available for interval timer interruption in the area specified. TIMER -YES is assumed. 



-M?81 



STXIT option is available for program check interruption. Included in supplied supervisor because 
FORTRAN, COBOL, RPG, QTAM, PL/I and Autotest require PC=YES. 



TEB 



J NO) 



Specify if tape error statistics are to be accumulated and logged where n is the number of tape drives 
attached to the system. Allow extra TEBs for possible future expansion of system. 



SKSEP = YES 



NO 



Specify if SEEK's are to be separated from the remainder of channel programs. Seek separation allows 
other devices on the channel to be accessed (including other seeks) during the seek. YES indicates 
support for all DASD type devices specified by the DVCGEN macro at system generation time, n is 
the number of DASD devices to be supported and cannot be less than the number of DASD devices 
specified at system generation. The maximum number is 254. 



,NO , 

CE =- YES } 



Specify the number of bytes to be allocated to the customer engineer serviceability programs. 600 is 
the minimum number of bytes that can be specified. For the actual number of bytes allocated, see 

Appendix G . 



PTO 



lYES/ 



Specify if the physical transient overlap feature is to allow the system to select tasks while Fetch is 
reading a fetched ( or loaded ) phase from the system residence file, or while I/O operations are per- 
formed during error recovery procedures. 



c»-{^} 



Specify if I/O requests are to be appraised for console buffering and indicate the number of buffers 
(1 -9) to be generated. 



CCHAIN={^} 



Specify if command chaining support for retry on I/O operations is to be handled. 



TRKHLD 



m 



when processing sequential disk workfiles or updates of direct access files, specify if a hold is to be 
placed on the track of the record being read. The hold prevents anyone else who is using track hold 
from accessing that track. The maximum number of tracks that can be held at one time is 255 and the 
assumed value is 10. 



lYES/ 



Specify if the abnormal termination exit function is to be supported. The abnormal termination exit allows 
the user to exit to a user's routine before an abnormal end of job causes a program to be cancelled. 



WAITM 



m) 



Specify if the multiple wait function is to be supported. This function allows the user to use the WAITM 

macro to wait for one of a number of events to occur. 



•DASDFP^ 



.NO I 



Specify if supervisory DASD file protection is handled where n,n indicates the range of channels to 
which DASDs may be attached . Either 231 I or 231 4 indicates file protection for 231 1 and 2314. 2321 
indicates fi le protection for 231 1 , 231 4 and 2321 . 



I NO 

*SYSFIL=Vj23inr,n,,n2l\' 
/Vl2314r )^ 



Specify if system input and system output (SYRDR, SYSIPT, SYSLST, SYSPCH) files may be assigned to 
a 2311 or 2314. Specification for either gives support for both . 

nj = residual capacity for beginning of operator notification when SYSLST assigned to 2311/2314. 
100< n]< 65535. If n] is omitted, 1 000 is assumed . 

nn = residual capacity for beginning of operation notification when SYSPCH assigned to 231 1 . 
100<n2<65535. If n2 is omitted, 1 000 is assumed . 



*Valid when 24K bytes of main storage are available . 



Figure U. Macro Instructions for Supervisor Generation (Part 2 of U) 
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Operation 


Operand 


Explanation 


PIOCS 


S-H^{1} 


Define options and configuration requirements to be included in physical IOCS. 


Specify if selector channels are attached to the system 


BMPX={i;,°s} 


Specify if burst mode devices on multiplexor channel is supported. If 1412/1419's 
ore attached to the multiplexor channel BMPX=YES is not supported. 


,NO , 

CHANSW=-^RWTAU \ 

' TSWTCH ' 


Specify if channel switching. 


TAPE= { 7 \ 

(no ' 


Specify 9- or 7-track tape. 7 indicates support for both. 


ALLOC 


Fl=nK,F2=nK 


Specify storage partitioning. 


lOTAB 


BGPGR={i^| 


Define the necessary input/output tables for the system. 

Specify the number of logical unit blocks (LUBs) for programmer units, i.e., the 
number of symbolic programmer logical units (SYSOOO - SYSnnn). 


F1PGR={^} 


Specify the number of symbolic units of the class SYSnnn for Fl . 


F2PGR={|} 


Specify the number of symbolic units of the class SYSnnn for F2 . 


-bH4} 


Number of JIBs for the system. Minimum value generated is 5. 


chanq={4} 


Number of entries in the channel queue. Minimum value is 6. 


10DEV={1°} 


Specify the number of I/O devices attached to the system. The minimum value is 5. 


DVCGEN 


CHUN=X"cuu" 


Specify the physical l/O units attached to the system. 


Hexadecimal number of channel and unit. 


DVCTYP=xxxxxx 


Specify the device type. See Figure 2. 


chansw-Iy^^} 


YES indicates that the device is attached to more than one selector channel (the 
device is sv^^itchable). 


MODE=X'ss' 


1 . 2400T9. MODE is used to specify the tope mode. X'CO' is the default value. 

2. 2400T7. MODE is used to specify the tape mode. X'90' is the default value . 

3. 2702. MODE designates the SADxxx command. X'OO' is the default value. 
X'OO' SADO, X'Or SAD1, X'02' SAD2, X'03' SAD3. 

4. 2260 (Local). MODE is used to specify the 1053 printer when CHUN=X'cuu' 
refers to a 1053 attached to a 2848. This operand must be entered as 
MODE=X'0r. 

5. 1412, 1419, 1259 MODE designates the external interrupt bit associated with 
magnetic ink character reader. 

X'Or External line 7 X'04' External line 5 X'lO' Externalline 3 
X'02' External line 6 X'08' External line 4 X'20' External line 2 



Figure U. Macro Instructions for Supervisor Generation (Part 3 of 4) 
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Operation 


Operand 


Explanation 


ASSGN 


SYSnnn,X'cuu' 


Assign LUBs to PUBs as standard system assignments. 


Symbolic unit is assigned a hexadecimal channel and unit number. 


SEND 


["] 


End of supervisor macro instructions, n = beginning address of the problem pro- 
gram area . 



Figure 4. Macro Instructions for Supervisor Generation (Part 4 of 4) 



Card Code 


Actual Device 


Device Type 


2400T9 


Nine Track Magnetic Tapes 


Tapes 


2400T7 


Seven Track Magnetic Tapes 


1442N1 


1442N1 Card Read Punch 


Card Readers- Punches 


2520B1 


2520B1 Card Read Punch 


2501 


2501 Card Reader 


Card Readers 


2540R 


2540 Card Reader 


2540P 


2540 Card Punch 


Card Punches 


2520B2 


2520B2 Card Punch 


1442N2 


1442N2 Card Punch 


2520B3 


2520B3 Card Punch 


1403 


1403 Printer 


Printers 


1403U 


1403 Printer with UCS Feature 


1404 


1404 Printer 


1443 


1443 Printer 


1445 


1445 Printer 


1050A 


1052 Printer- Keyboard 


1050 Control Unit 


UNSP 


Unsupported Device 


Unsupported. No Burst 
Mode on Multiplexor 
Channel 


UNSPB 


Unsupported Device 


Unsupported with Burst 
Mode on Multiplexor 
Channel 


2260 

(Local) 


2260 Display Unit 


Display Unit 


2260 
(Local) 


A 1053 attached to a 2848. 
The mode operand must be 
entered as MODE = X'0r 


Printer 



Card Code 


Actual Device 


Device Type 


2311 


2311 Disk Drive 


DASD 


2314 


2314 Disk Storage Facility 


DASD 


2321 


2321 Data Cell Drive 


DASD 


2671 


2671 Paper Tape Reader 


Paper Tape Reader 


2495TC 


2495TC Tape Cartridge Reader 


Tape Cartridge Reader 


1412 


1412 Magnetic Character 
Reader 


Magnetic Character 
Reader 


1419 


1419 Magnetic Character 
Reader or 1259 Magnetic 
Reader 


Magnetic Character 
Reader 


I4I9P 


Primary control unit address on 
1419 Dual Address Adapter 


Magnetic Character 
Reader 


1419S 


Secondary control unit address 
on 1419 Dual Address Adapter 


Magnetic Character 
Reader 


2701* 


2701 Line Adapter Unit 


Teleprocessing Lines 


2702 


2702 Transmission Control Unit 


2703 


2703 Transmission Control Unit 


2703 


IBM System/360 Model 25 with 
the Integrated Communication 
attachment. 


Teleprocessing Lines 


7770 


7770 Audio Response Unit 


Audio Response 


7772 


7772 Audio Response Unit 


1285 


1285 0pticol Reader 


Optical Readers 


1287 


1287 Optical Reader 



* Note: A 2701 Line Adapter Unit cttactied to an IBM 
System/360 Model 25 must be placed on the 
multiplexor channel . 



Note: The codes used in DVCGEN macros are identical to those used in IPL statements. 



Figure 5- Device Code 
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Figure 6 shows macro instructions and parameters that generate the 
supervisors supplied by IBM, 



2311 DISK SYSTEM SUPERVISOR 



2314 DIRECT ACCESS STORAGE SUPERVISOR 



Operation 


Operand 


SUPVR 


SYSTEM = DISK 


CONFG 




STDJC 




FOPT 


PC=YES 


PIOCS 


BMPX=YES,TAPE = 7 


lOTAB 




SEND 


6144 


END 





Operotion 


Operand 


SUPVR 


SYSTEM =DISK 


CONFG 




STDJC 




FOPT 


PC=YES,SYSFIL=2314 


PIOCS 


BMPX = YES,CHANSW = RWTAU, TAPE = 7 


lOTAB 




SEND 


8192 


END 





• Figure 6. IBM-Supplied Supeirvisor for 2311 Disk Systems 
and 2314 Direct Access Storage Facility 



Macro Instiructions for Generating a Supervisor 51 



Two IBM 2311 Disk Drives 



The system is supplied in two volumes. The first volume consists of a cx)re 
image library and a relocatable library. The second volume is composed of 
a core image library and a source statement library. Depending upon the 
user's configuration, these packs are used in varying order. 

Ihe following is an example of one of the many possible methods for 
generating a system. Figure 7 illustrates the system configuration upon 
which Example One (Figure 8) is based. The following steps are keyed to 
Exairple One: 

Step 1 Disk-only users receive the system on disk. Disk users with at 
least one tape unit available unit receive the system on tape. 

Before generating a system, disk-only users should have at 
least one initialized disk pack (VTOC on cylinder 199). 

Users with two disk drives and at least one tape unit should 
have at least two initialized disk packs (VTOC on cylinder 199) . 

Mount the IBM- supplied core image and relocatable library 
volume. Users with tape roust also mount a disk pack to which the 
tape is to be restored. 

Before restoring the tape, the user must tahe the necessary 
action to perform or bypass the initialize disk routine. 

a. If the disk packs have not been initialized, the 
IBM-supplied volume, a self-loading tape, is capable 
of initializing the packs (see Figure 8) . The DLBL 
cards used in the following steps must contain 

the volume serial number appearing in the VOL card 
of the initialize disk control cards. Any volume 
serial number used in the EXTENT cards for the 
following steps must agree with the volume 
serial number in the VOL card for initialize disk 
control cards. 

b. If the disk packs have been previously initialized, the 
initialize disk routine can be bypassed (see Figure 

8) . Any volume serial number used in the EXTENT cards 
for the following steps must agree with the volume 
serial number used when the packs were 
initialized. 

Step 2 After step 1 is completed, the user must restore the system from 
the self-loading tape to the initialized pack. This step is 
omitted when a syston is received on disk. 

Step 3 When the tape has been restored, dial the address of the system 

residence disk drive into the load unit switches, and IPL to pass 
control to the DOS supervisor. See Appendix A for the IPL 
control statements. 

Step 4 Perform a DSERV to display the directories. After determining 

which components are never to be used, perform a DELETR to delete 
any relocatable component never to be used. 

Step 5 Copy the relocatable library to a second initialized disk, 
defining it as a private relocatable library. During this 
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copying, the user can allocate the private library to the desired 
size. When allocating the size of the private library, consider 
the workfile requirements discussed in step 9. To compute the 
minimum size of a library, see Allocating Library Sizes for 2311 
and 23m Disk Systans . 

For techniques on copying libraries (MERGE) , see Maintenance 
Procedures . 

Step 6 Disk only users, remove the IBM-supplied core image and re- 
locatable library volume, and mount the IBM-supplied core image 
and source statement library volume. 

Disk users that received the IBM-supplied systems on tape 
should mount the IBM-supplied core image and source statement 
library system tape, and can either: 

a. replace the system residence pack mounted in step 1, and 
initialize it, or 

b. bypass initialization (because the system residence pack 
mounted in step 1 is already initialized) . 

Step 7 After the previous step is performed, the user must restore the 
system from the self-loading tape to the initialized pack. This 
step is omitted vdien a system is received on disk. 

Step 8 When the tape has been restored, dial the address of the system 
residence disk drive into the load unit switches and IPL to pass 
control to the DOS supervisor. 

Perform a DSERV to display the directories. Then SSERV 
(display and punch) all the desired sample problons from the 
source statement library into cards. Punched output includes the 
sample problems with BKEND and CATALS cards . Four other books in 
the source statement library that should be punched out at this 
time (Z.LINKEDIT,, Z.DELETECL,, Z.DELETERL, and Z.DELETESL) contain 
the necessary control statements to selectively linkage edit and 
delete all IBM components. The sample problem program names, and 
the linkage edit and the delete book names can be chosen and 
punched into the DSPCH statement ( s) . The sample problem program 
names and the linkage edit and delete book names are shown in 
Appendix C . 

After these sample problems and books have been punched, they 
can be deleted from the source statement library, along with 
unwanted macros (e.g., those macros never to be used). 

Step 9 Define workfiles for SYSLNK, SYSOOl, SYS002, and SYS003 to the 
second drive. The workfiles SYSLNK, SYSOOl, SYS002, and SYS003 
are defined by use of the DLBL and EXTENT cards. These cards 
must be preceded by the OPTION STDLABEL or OPTION PARSTD card. 

Step 10 Perform all necessary assemblies. The assemblies for the 

supervisor, IOCS modules,, and emulator should be performed as 
separate jobs. For the information required to assemble Emulator 
Programs, refer to the Emulator Program manual listed in the 
Preface. The user must be careful to keep all assemblies in 
order. 

Step 11 Assemble all user-required IOCS modules. By assigning SYSPCH to 
a tape unit, the IOCS modules can be cataloged to the relocatable 
library without punching them on cards. The IOCS modules 
required by COBOL, PL/I, and RPG,, as defined in Appendix B , are 
supplied in the relocatable library by IBM. 
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Close the tape assigned to SZSPCH and reassign SYSPCH to its 
permanent assignment by using the CLOSE command. The assembly 
listings should be checked for errors before proceeding. 

Steo 12 Delete unwanted macros from the source statement library, and 

then create a private source statement library. If space allows, 
this copy could be made to a free area of the pack to which the 
relocatable library was copied. 

For techniques on creating a new library, see Maintenance 
Procedures . 

Step 13 This step defines the creation of the core image library of the 
user's operational pack. 

The user can either delete the source statement library and 
reallocate the system to create a large core image library, or 
reallocate to create a large core image and a small system source 
statement library on the operational pack. 

For techniques on creating a new library, see Maintenance 
Procedures . 

Step m During this step the user must have the core image library of his 
operational pack that he is building on line, as well as his 
relocatable library. 

If linkage edit work files are not assigned, they must be 
assigned now. 

Linkage edit and catalog the assembled supervisor (object 
module from step 10) to the core image library. If the SEND 
address is larger than the one used by the supervisor being 
replaced, certain key programs must also be linkage edited and 
cataloged to the core image library in the same job step with the 
new supervisor. These key programs are IPL, linkage editor, and 
librarian. The LINKEDIT deck punched out in step 8 contains all 
of the necessary control statements to linkage edit all IBM 
components shipped on the system. If the SEND address is not 
exceeded, only the supervisor need be cataloged. The new 
supervisor is not cataloged until a /£ statement is read . The 
user must not attempt any other operation from the time the 
supervisor and these preceding programs are cataloged until IPL 
time. 

Step 15 Re-IPL and set the date (and clock if the Timer Feature is 
present) . 

Linkage edit and catalog any additional components desired to 
the core image library. See Appendix C for a complete list of 
control cards for all IBM components to be cataloged. Before the 
next step is performed, check the linkage editor listings, and 
make all necessary corrections. 

Step 16 Reload the tape that was assigned to SYSPCH in step 11 and assign 
it to SYSIPT, With this tape the MAINT program catalogs the IOCS 
modules to the relocatable library by the control card // EXEC 
MAINT. The user may set new standard labels (OPTION STDLABEL) , 
reallocate library sizes, and set automatic condense limits, if 
required. Backup for the operational disk can be obtained by 
copying the operational disk pack to tape by using the copy 
disk-to- tape utility program. 



5U IBM S/360 DCS Sys. Gen. and Maint 



INPUT /OUTPUT DEVICE CONFIGURATION FOR EXAMPLE ONE (SEE FIGURE 7) 

Device Channel Unit Use 

2 54 OR OC Card Reader (SYSRDR, SYSIPT) 

25U0P OD Card Punch (SYSPCH) 

1U03 OE Printer (SYSLST) 

1052 IF Printer- Keyboard (SYSLOG) 

2311 1 91 Disk (SYSLNK, SYSOOl, SYS002, SYS003, 

SYS004, SYSRLB, SYSSLB) 

2311 1 90 Disk (SYSRES) 

2321 1 92 Data Cell (SYS007) 

2U00T7 1 80 Magnetic tape with the data conversion 

feature (switchable to channel 2) 

2U00T9 1 81 Magnetic tape (switchable to channel 2) 



Example One: Results of System Generation 

when system generation is completed for example one (see Figure 8), the 
operational disk of the installation contains: Assembler, Basic FORTRAN, 
COBOL, RPG, PL/I, Autotest, all utilities, and the disk sort/merge programs 
in its core image library together with the installation's tailored 
supervisor., job control, linkage editor, and librarian programs. The tape 
shipped by IBM is retained as a backup tape. It is a selfloading tape 
capable of being restored onto disk. 

The sample problems are punched out during step 8. 

The private relocatable and source statement libraries contain all 
modules and macro definitions shipped from IBM (except teleprocessing, 
OLTEP, Assembler F, Tape Sort/Merge, and the Vocabulary file utility). 

The core image library of the operational pack is built to contain those 
IBM programs chosen by the user. 

At this point, the private libraries are condensed, and user IOCS 
modules are assembled and cataloged to the private relocatable library. 

When system generation is completed, the sample problems should be run 
against the operational pack to ensure correct creation of all system 
programs. 
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Optional Features 
Timer 

Floating Point 
Storage Protection 
Decimal 
Channel Switching 



Channel 



UnitX'OE' 




9-track 




Channel 



1 



Unit X'OC' 



2540R 



2311 



SYS RES 



2311 



2321 



SYS007 



Unit X'OD' 



SYSLST 



SYSRDR 
SYSIPT 



2540P 



SYSPCH 



UnitX'90' 



UnitX'91' 

SYSRLB 

SYSSLB 

SYSLNK 

SYSOOl 

SYSGa2 

SYS003 

SYS004 



UnitX'92' 



Figure 7. System Configuration for Example One 
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The user may optionally bypass the initialize routine. However, if initiolization is required mount a pack on unit 190, mount a second 
" pack on unit 1 91 . Mount IBM -supplied tape on unit 181 (9 -track drive). Place the following cards in the card reader. Dial 181 in th« 
- load unit switches and press load . When system enters the wait stote press start and EOF on the cord reader. To initialize the second 
.pock, change the assignment for SYSLOG to//ASSGN SYSOPT,X'19r,Dl; rewind the IBM -supplied tape mounted on 181, reload the 
.card reader with the following cards, and press load. When the system enters the wait state press start and EOF on the cord reader. Use 
' of multi -part forms is suggested as copies of the linkage editor maps and the supervisor listing will be required by your IBM customer 
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- To bypass initialize disk program on IBM-supplied tape. Mount IBM -supplied tope on unit If 

_ (9-track drive). Mount initialized disk on unit 190 (VTOC on cyl 199). Mount work pack on 

191 insert the following control cards in the reader. Dial 181 in load unit switches. Press loac 

" key. When system enters wait state, press start and EOF on the card reader. Job is complete 
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Figure 8. Example One (Part 1 of 14) 
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-**** CaoHon **** Do not rewind unit 181 . To load the tape onto disk, place the following cards 
_ in the reader. Dial 181 in load switches. Press load. When the system enters the wait state, press 
start and EOF on card reader. The following message appears on SYSLOG: 
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After the system is loaded onto disk generate the installation system. Dial 190 in load un 
switches. Press load key on console . When system enters the wait state, press start on th 
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cord reader. The following cords are in the card reader (SYSRDIV SYSIPT). 
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If a small private relocatable library is to be built on the operational system, remove the 
pack from 191 and mount the initialized pack tfiat the operational system is to be built on 
■ Then, repeat this job with the proper EXTENT and NEWVOL statements. 
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The user may opMonolly bypass the initialize routine. However, if initialization is required 
mount a pack on unit 190, mount a second pock on unit 191 . Mount IBM -supplied tape on 
- unit 181 (9-track drive). Place the following cards in the card reader. Dial 181 in the load 
_ unit switches and press load . When system enters the wait state press start and EOF on the 
card reader. Use of multi -part forms is suggested as copies of the linkage editor maps and the 
supervisor listing will be required by your IBM customer engineer for maintenance purposes. 
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. **** Caution **** Do not rewind unit 181 . To load the tape onto disk, place the following cards 
in the reader. Dial 181 in load switches. Press load. When the system enters the wait state, press 
" start and EOF on card reader. The following message appears on SYSLOG: 




































































































































































































y\ 








y 


J 




u 












































































































































































































































































1 




J 





B 




D 


1 


S 


R 


S 


T 
































































































































1 




D 


A 


T 


E 




6 


9 





3 


2 


































































































































1 




A 


S 


S 


G 


N 




S 


Y 


S 













X 


• 


1 


9 









D 


1 












































































































1 




A 


S 


S 


G 


N 




S 


Y 


S 


L 





G 




X 







1 


F 






C 


1 










































































































1 




A 


S 


s 


G 


N 




S 


Y 


S 


L 


s 


T 




X 










E 


• 




L 


1 




































































' 






































1 




E 


X 


E 


C 

































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































IBM 






























































IBM Syltlni 


/360 AisimUir Coding Form 
















































. 


~ 


^ 


.. 


-.o«*» EXAMPLE ONE: TWO DISK DRIVES 


:rSo=oM, 


G..-HK 
















«« O, 




f.OGI»M«. STEPS |d»I! 


,^CH 




















STAlsuiNI 




s.il™ 




'*- , ,„ °""'- „ ,, ^ °'-^ 30 35 « .5 » 55 ' ■ » .5 


































































































































~ After the system is loaded onto disk,generate the installation system. Dial 190 in load unit 
M switches. Press load key on console. When system enters the wait state, press start on the 
card reader. The following cards are in the card reoder (SYSRDIV'SYSIPT). 
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The system is supplied in two volumes. The first volume consists of a core 
image library and a relocatable library. The second volume is composed of 
a core image library and a source statement library. Depending upon the 
user's configuration, these packs are used in varying order. 

IBM supplies the lOK background variant of the disk work file assembler 
in the core image library of the source statement library pack. The 
following procedure employs this assembler variant for system generation. 
If the user wishes to use another variant, he must: 

• Linkage edit and catalog the desired assembler to the core image 
library of the relocatable library system. 

• CSERV the assembler just cataloged. 

• Delete the supplied assembler from the core image library of the source 
statement library system, and condense this library. 

• Catalog the assembler obtained through the previous CSERV to the core 
inage library of the source statement library volume. 

The user can now perform system generation as described. Figure 9 
illustrates the system configuration upon which Example Two (Figure 10) is 
based. The following steps are keyed to Example Two: 

Step 1 Disk-only users receive the system on disk. Disk users with at 
least one tape unit available receive the system on tape. 

Mount the IBM- supplied core image and source statement library 
volume. Users with tape must also mount a disk pack to which the 
tape is to be restored. 

Before generating a system with at least one tape unit the user 
should have an initialized disk pack (VTOC on cylinder 199). 

a. If the disk pack has not been initialized, the IBM-supplied 
volume, a self-loading tape, is capable of initializing the 
pack (see Figure 10). The DLBL cards used in the following 
steps must contain the volume serial number appearing in the 
VOL card of the initialize disk control cards. Any volume 
serial number used in the EXTENT cards for the following 
steps must agree with the voliame serial number in the VOL 
card for the initialize disk control card. 

b. If the disk pack has been previously initialized, the 
initialize disk routine can be bypassed (see Figure 10) . Any 
volume serial number used in the EXTENT cards for the 
following steps must agree with the volume serial number used 
when the pack was initialized. 

Step 2 After step 1 is completed, the user must restore the system from 
the self-loading tape to the initialized pack. This step is 
omitted when a system is received on disk. 

Step 3 When the tape has been restored, dial the address of the system 

residence disk drive into the load unit switches, and IPL to pass 
control to the DOS supervisor. Then perform a DSERV to display 
the directories. See Appendix A for the IPL control statements. 
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step U SSERV (display and punch) all the desired sample problems from the 
source statement library into cards. Punched output includes the 
sample problems with BKEND and CATALS cards. Four other books in 
the source statement library that should be punched out at this 
time (Z.LINKEDIT, Z.DELETECL, Z.DELETERL, and Z.DELETESL) contain 
the necessary control statements to selectively linkage edit and 
delete all IBM components. The sample problem program names, the 
linkage edit, and the delete book names can be chosen and punched 
using the DSPCH statement(s) . The sample problem program names 
and the linkage edit and delete book names are shown in Appendix 
C. 

After these sample problems and books have been punched, they 
can be deleted from the source statement library along with 
unwanted macros (e.g., those components never to be used). 

Step 5 If additional space is needed for workfiles to perform assemblies, 
(SYSOOl, SYS002 and SYS003) the user can re-allocate the system to 
take advantage of the space gained by the deletes from the 
previous step. 

Step 6 The workfiles SYSLNK, SYSOOl, SYS002 , and SYS003 are defined by 

use of the DLBL and EXTENT cards. These cards must be preceded by 
the OPTION STDLABEL or OPTION PARSTD card. 

Step 7 Perform all necessary assemblies. The assemblies for the 

si:^ervisor, and IOCS modules should be performed as separate job 
steps. The user must be careful to keep all assemblies in order. 

If the user's operational system is to contain a minimum source 
statement library with selected macros, they should be obtained 
through an SSERV. The macros obtained in this step will later be 
placed on SYSIPT and cataloged to a system source statement 
library. 

Step 8 Disk users without tape must remove the IBM-supplied core image 
and source statement library pack, and replace it with the 
I]^-supplied core image and relocatable library pack. The pack 
removed should be retained for backup. 

Users with tape can either replace the core image and source 
statement library pack, or they can restore the IBM-supplied core 
image and relocatable library tape to this same initilized disk 
pack. 

Before restoring the tape, the user must take the necessary 
action to perform or bypass the initialize disk routine. 

Step 9 After step 8 is completed, the user must restore the system from 
the self-loading tape to the initialized pack. This step is 
omitted when a system is received on disk. 

Step 10 Dial the address of the system residence disk drive into the load 
unit switches, and IPL to pass control to the DOS supervisor. 

Step 11 Perform a DSERV to display the directories. Delete all 
relocatable library components not to be used. 

Step 12 Reallocate library sizes, assigning all free space with the 

exception of linkage editor work files, to the core image library. 
If room is available at this time, the user can also allocate the 
small source statement library to contain those macros punched in 
step 7. Otherwise, this allocation can be done in step 15. The 
linkage editor work files (SYSLNK and SYSOOl) are already defined 
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on this pack. The user need only assign SYSLNK and SYSOOl to this 
drive. (See step 10 in Figure 10.) 

Step 13 Linkage edit and catalog the assembled supervisor (from step 7) to 
the core image library. Certain key programs must also be linkage 
edited and cataloged in the same job step with the new supervisor 
if the SEND address is larger than the one used by the supervisor 
being replaced. These key programs are IPL, linkage editor, and 
librarian. The control statements to linkage edit these programs 
are in the linkage edit deck punched out in step 4. The SSERV and 
assembler components illustrated in Figure 10, step 13, should be 
included as part of this job only if the user's operational system 
is to contain a minimiim source statement library. 

The new supervisor is not cataloged until a /S statement is 
read . The user must not attempt any other operations from the 
time when the supervisor and preceding programs are cataloged and 
the subsequent IPL. 

Step lU After these key programs have been cataloged, re-IPL, and set the 
date (set the clock if the timer feature is present) . 

Linkage edit and catalog any additional components desired to 
the core image library. See Appendix C for a complete, list of 
control cards for all components. The LINKEDIT deck punched out 
in step 4 contains all of the necessary control statements to 
linkage edit all components shipped on the system. 

Before the next step is performed check the linkage editor 
listings and make all necessary corrections before deleting the 
modules from the relocatable library. 

Step 15 If the components deleted in step 11 did not provide adequate 
space for the final allocation of system libraries, a new 
allocation can be performed by deleting components previously 
cataloged to the core image library. More then one deletion and 
allocation may be required during linkage edit jobs. Users 
desiring a small source statement library should now allocate 
space for one. 

Catalog the modules assembled in step 7 to the system 
relocatable library. If your decision was to have a source 
statement library on this pack, catalog the source statement 
macros punched in step 7 to the system source statement library. 

The user may set new standard labels, re-allocate library 
sizes, and set automatic condense limits. Backup for the 
operational system should also be obtained. 
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INPUT /OUTPUT DEVICE CONFIGURATION FOR EXAiyiPLE TWO (SEE FIGURE 9) 



Device Channel Unit Use 



254 OR 





oc 


2540P 





OD 


1403 





OE 


1052 





IF 


2400T7 


1 


81 


2311 


1 


90 



Card Reader (SYSRDR/SYSIPT) 

Card Punch (SYSPCri) 

Printer (SYSLST) 

Printer- Keyboard (SYSLOG) 

lyjagnetic Tape with data conversion feature 

Disk (SYSRES, SYSLNK, SYSOOl, SYS002, SYS003) 



Example Two: Results of System Generation 



When systein generation is completed for Example Two (see Figure 10), the 
operational disk contains COBOL, PL/I, Basic FORTRAN, Tape Sort/Merge and 
Utilities together with the installation's tailored supervisor, job 
control, linkage editor, and librarian programs in the core image library. 
The tape shipped by IBM is retained as a backup tape. The relocatable 
library contains all those components shipped by IBM except those that were 
deleted in steps 11 and 15. There is no source statement library on this 
operational pack. This is a user option, and was indicated as such in the 
exaiiple. Thus, the user may either utilize the source statement library 
shipped by IBM on the source statement library volume, or he may build a 
source statement library on the operational pack by allocating space and 
cataloging his desired macro definitions. 



SYSRES 

SYSLNK 

SYSOOl 

SYS0Q2 

SYS003 



Unit X '90' 




Unit X'80' 



Channel 1 



IBM System /360, Model E30 

Optional features: 

Timer 

Storage protection 

Decimal 

Floating point 

Channel switching 2404 or 2804 



X'lF' 


1052 


SYSlOG 


Figure 9. 




Channel 2 



(tape switchable; 7 -track with 
Data Conversion feature ) 



Channel 



X'X' 



2540 R 



X'OD' 



2540 P 



SYSRDR/SYSIPT 
System Configuration for Example Two 
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The user may optionally bypass the initialize routine. However, it initialization is required moun 
-a pack on unit 190. Mount IBM -supplied tape on unit 180 (7- track drive). Place the following 
_ cards in the card reader. Dial 180 in the load unit switches and press load. When system enters 

the wait state press start and EOF on the card reader. Use of multi -part forms is suggested as 
" copies of the linkage editor maps and the supervisor listing will be required by your IBM customer 
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To bypass initialize disk program on IBM-supplied tape, mount IBM-supplied tape on unit 180 
(7-track drive). Mount initialized disk on unit 190 (VTOC on CYL 199). Insert the following 
control cards in the reader. Dioil 80 in load unit switches. Press load key . When system 
enters wait state, press start and EOF on the card reader. Job is complete when OOC and 4000A 
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**** Caution **** Do not rewind unit 180, To load the tape onto disk, ptoce the following cords in 
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and EOF on card reader. The following messoge appears on SYSLOG: 
4444A. Type in 4 (b) and press INTERRUPT to continue. 
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After the system is loaded onto disk generate the installation system. Dial 190 in load unit switches. 
- Press load key on console. When system enters the wait state, press start and EOF on the cord reader 
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"The user may opHonally bypass the Initialize routine. However, if initialization is required mount 

-a pack on unit 190. Mount IBM-supplied tope on unit 180 (7- track drive). Place the following 

cards in the card reader. Dial 180 in the load unit switches and press load. When system enters 

the wait state press start and EOF on the card reader. Use of multi-part forms Is suggested as 

-copies of the linkage editor maps and the supervisor listing will be required by your IBM customer 
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_ (7-track drive). Mount initialized disk on unit 190 (VTOC on CYL 199). Insert the following 
control cards in the reader. Dial 180 in load unit switches. Press load key. When system 
enters wait state, press start and EOF on the card reader. Job is complete when OOC and 4000A 
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p the reader. Dial 180 in load switches. Press load. When the system enters tfie wait state, press start 

and EOF on card reader. The following message appears on SYSLOG: 
'' 4444A. Type in 4(Dand press INTERRUPT to continue. 
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"After the system is loaded onto disk generate the installation system. Dial 190 in lood unit switches. 
- Press load key on console. When system enters the wait state, press start and EOF on the card reader 
The following caids are in the card reader. 
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The LINKEDIT book displayed and punched in step 4 contains all the necessary job control 
statements to linkage edit any of the IBM components shipped on the system. The user is 
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The system is supplied on two magnetic tapes. These two tapes contain DOS 
in a format suitable for restoring them to one 2316 disk pack. 

Example three is one of the many possible methods for generating a 
system. Figure 11 illustrates the system configuration upon which Example 
Three (Figure 12) is based. The following steps are keyed to Example 
Three - 

Before generating a system, users should have at least one initialized 
disk pack (VTOC on cylinder 199). 

Step 1 Mount the IBK-supplied magnetic tapes and a disk pack to which the 
tapes are to be restored. 

Before restoring the first tape, the user must take the 
necessary action to perform or bypass the initialize disk routine. 

a. If the disk pack has not been initialized, the IBM-supplied 
volume, a self-loading tape, is capable of initializing the 
packs (see Figure 12). The DLBL cards in the following steps 
must contain the volume serial number appearing in the VOL 
card of the initialize disk control cards. Any volume serial 
number used in the EXTENT cards for the following steps must 
agree with the volume serial number in the VOL card for the 
initialize disk control cards. 

b. If the disk pack was previously initialized, the initialize 
disk routine can be bypassed (see Figure 12). Any volume 
serial number used in the EXTENT cards for the following 
steps must agree with the volume serial number used when the 
packs were initialized. 

Step 2 After step 1 is completed, the user must restore the system from 
the self-loading tapes to the initialized pack. 

Step 3 When the tapes are restored, dial the address of the system 

residence disk drive into the load unit switches, and IPL to pass 
control to the DOS supervisor. See Appendix A " for the IPL control 
statements. 

Step U Perform a DSERV to display the directories. Then SSERV (display 
and punch) all the desired sample problems from the source 
statement library into cards. Punched output includes the sample 
problems with BKEND and CATALS cards. Four other books in the 
source statement library that should be punched out at this time 
(Z.LINKEDIT, Z.DELETECL, Z.DELETERL, and Z.DELETESL) contain the 
necessary control statements to selectively linkage edit and 
delete all IBM components. The sample problem program names, and 
the linkage edit and the delete book names can be chosen and 
punched into the DSPCH statement (s) . The sample problem program 
names and the linkage edit and delete book names are shown in 
Appendix C . 

Step 5 Define workfiles for SYSLNK, SYSOOl, SYS002, and SYS 003. The 

workfiles SYSLNK, SYSOOl, SYS002, and SYS003 are defined by use of 

the DLBL and EXTENT cards. These cards must be preceded by the 
OPTION STDLABEL or OPTION PARSTD card. 

Step 6 Perform all necessary assemblies. The assemblies for the 

supervisor, IOCS modules, and emulators should be performed as 
separate jobs. For the information required to assemble Emulator 
Programs, refer to the Emulator Program manual listed in the 
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Preface. The user must be careful to keep all assemblies in 
order. 

Step 7 Assemble all user-required IOCS modules. By assigning SYSPCH to a 
tape unit, the IOCS modules can be cataloged to the relocatable 
library without punching them on cards. The IOCS modules required 
by COBOL, PL/I, and RPG, as defined in Appendix B , are supplied in 
the relocatable library by IBM. 

Close the tape assigned to SYSPCH and reassign SYSPCH to its 
permanent assignment by using the CLOSE command. The assembly 
listings should be checked for errors before proceeding. 

Step 8 Linkage edit and catalog the assembled supervisor (object module 
from step 6) to the core image library. If the SEND address is 
larger than the one used by the supervisor being replaced, certain 
key programs must also be linkage edited and cataloged to the core 
image library in the same job step with the new supervisor. These 
key programs are IPL, linkage editor, and librarian. The LINKEDIT 
deck punched out in step 4 contains all the necessary control 
statements to linkage edit all IBM components shipped on the 
system- If the SEND address is not exceeded, only the supervisor 
is cataloged. The new supervisor is not cataloged until a /% 
statement is read . The user must not attempt any other operation 
from the time the supervisor and these preceding programs are 
cataloged until IPL time. 

Step 9 Re- IPL and set the date (and clock if the Timer Feature is 
present) . 

Linkage edit and catalog any additional components desired to 
the core image library. See Appendix C for a complete list of 
control cards for all IBM components to be cataloged. Before the 
next step is performed, check the linkage editor listings, and 
make all necessary corrections - 

Step 10 Reload the tape that was assigned to SYSPCH in step 7 and assign 
it to SYSIPT. With this tape the MAINT program catalogs the IOCS 
modules to the relocatable library by the control card // EXEC 
MAINT. The user may set new standard labels (OPTION STD LABEL) , 
reallocate library sizes, and set automatic condense limits, if 
required. Backup for the operational disk can be obtained by 
copying the operational disk pack to tape by using the copy 
disk-to-tape utility program. 

INPUT /OUTPUT DEVICE CONFIGURATION FOR EXAMPLE THREE (SEE FIGURE 11) 



Use 

Card Reader (SYSRDR, SYSIPT) 

Card Punch (SYSPCH) 

Printer (SYSLST) 

Printer-Keyboard (SYSLOG) 

Disk (SYSRES, SYSLNK, SYSOOl, SYS002, 
SYS003, SYS004) 

Magnetic Tape 



Device 


Channel 


Unit 


25U0R 





OC 


2540P 





OD 


1403 





OE 


1052 





IF 


231U 
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30 


2400T9 


1 


80 
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Example Three: Results of Systeni Generation 

When system generation is completed for Example One (see Figure 12) , the 
operational disk of the installation contains : Assembler, Basic FORTRAN, 
COBOL, RPG, PL/ I, and the disk sort/merge programs in its core image 
library, together with the installation's tailored supervisor, job control, 
linkage editor, and librarian programs. The tapes shipped by IBM are 
retained as backup tapes. They are self-loading tapes capable of being 
restored on disk. 

The sample problems are punched out during step 4. 

Libraries contain all modules and macro definitions shipped from IBM. 

The core image library is built to contain those IBM programs chosen by 
the user. 

At this point, the libraries are condensed, and user IOCS modules are 
asserrbled and cataloged to the relocatable library. 

When system generation is completed, the sample problems should be run 
against the operational pack to ensure correct creation of all system 
programs. 




2400 




9 -track 



Unit X'80' 
Channel 2 



IBM System/360, MODEL G40 

Optional Features 
Timer 

Floating Point 
Storage Protection 
Decimal 



Channel 



Unit X'OE' 



1403 



Channel 1 



UnitX'OC' 



2540R 



2314 



UnitX'30' 

SYSRES 

SYSLNK 

SYSOOl 

SYS002 

SYS003 

SYS004 



UnitX'OD' 



2540P 



SYSRDR 
SYSIPT 



SYSLOG SYSLST ;:.;;„%-" syspch 

Figure 11. System Configuration for Example Three 
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^ To bypass initialize disk program on IBM-supplied tope. Mount IBM-supplied tape on unit 130 
(9-track drive). Mount initialized disk on unit 130 (VTOC on cyl 199). Insert the following 
control cards in the reader. Dial 130 in load unit switches. Press load key. When system 

~ enters wait state, press start and EOF on the card reader. Job is complete when OOC and 4000A 
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♦ *** Coufion **** Do not rewind unit 180. To lotxj the tape onto disk, place the following cards 
in the reader. Dial 180 in load switches. Press load. When the system enters the wait state, press 
" start and EOF on card reader. The following message appears on SYSLOG: 
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_ After the system is loaded onto disk generate the installation system. Dial 130 in load unit 
switches. Press load key on console. When system enters the wait state, press start on the 
^ card reader. The following cards ore in the card reader (SYSRDR/SYSIPTX 
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Figure 12. Example Three (Part 7 of 7) 
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Maintenance Procedures 



The maintenance of Disk Operating System libraries can be performed with 
the MERGE function of the CORGZ librarian program. The ^iERGE function 
allows complete libraries to be merged into one library, or entire 
components, selected individual phases, modules, or books to be transferred 
from one existing library to another, when the MERGE function is used, 
space availability is always a consideration. 



Using the MERGE Function of the CORGZ Librarian Program 

The MERGE function provides the facility to replace identical entries of a 
library, or add unique entries to a library. In either case, executing a 
copy (MERGE) requires that space be available in the library to accommodate 
the added information. 



REPIACING IDENTICAL ENTRIES USING MERGE FUNCTION 

When transferring information that is named identically as existing entries 
of a library, the old entry (phase, module, or book name) is deleted from 
the library's directory, and the name of the new entry is added to the end 
of the library's directory. The new entry is the name of the new 
information. The information itself (phase, module, or book) is added to 
the end of the library. 



ADDING UNIQUE ENTRIES USING MERGE FUNCTION 

When uniquely named entries (phase, module, or book name) are transferred 
to an existing library, the names of the entries are added to the end of 
the library's directory, and the information itself is added to the end of 
the library. 

General Library Updating Techniques Using the MERGE 
Function of the CORGZ Librarian Program 

The techniques presented here apply to the examples given- They are 
intended as a guide for the user, and do not necessarily satisfy all user 
requirements. The method that a user applies to maintain his libraries 
will depend upon the user's library structure, and his special requirements 
concerning the maintenance of his library. 



COPYING SELECTIVELY TO MERGE LIBRARIES 

When there are many more entries desired in an existing library than 
another, it is usually faster to selectively copy (MERGE) to the library 
containing the most number of desired entries. Thus, the number of entries 
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trajBferred are kept to a minimum to save time. Copying to a library 
necessarily expands the library. If there is insufficient space in a 
library to accommodate additional entries, unwanted entries can be deleted, 
the library condensed, and the new entries then added to the library. 



DELETING UNWA1>ITED ENTRIES AND MERGING AN ENTIRE LIBRARY WITH ANOTHER 
LIBRARY 

A second technique is to apply the IBM-supplied DELETERL or DELETESL book 
to delete all unwanted entries from a library and copy the ntire library 
to another library, thus merging the two libraries. Using this technique 
requires that the library being copied to contains enough space to 
accommodate the entire library being copied. If there is insufficient 
space, the library being copied to can be condensed or reallocated. 



COPYING SELECTIVELY, MERGING TWO LIBRARIES TO CREATE A THIRD LIBRARY 

If there is insufficient space to accommodate a merge of two libraries, a 
third library can be created to contain selected entries from the two 
libraries being merged. This technique eliminates the need for condensing 
or reallocating an existing library. Note that this technique can be 
applied by using only two disk drives. 



DELETING UNWANTED ENTRIES FROM TWO LIBRARIES AND MERGING BOTH LIBRARIES TO 
CREATE A THIRD LIBRARY 

Another technique for merging two libraries is to delete unwanted entries 
from the two existing libraries, and merging the two libraries, in their 
entirety, by copying them to create a third library. Note that this 
technique can be applied by using only two disk drives. 



Conventions for Merge Examples 

The following conventions are used in the maintenance examples given here. 
If a macro definition called m is an entry in a library called L (L being 
any library and m being any macro definition entry in any library L) then 
any macro definition entry m in any library L can be designated as Lm. 

Assume that there are two libraries L called A and B, and that the macro 
definition entries 1, 2, and 3 in library A are IBM-supplied, and 8 and 9 
are user-defined macro definitions. Further, assume that the user receives 
a new release of DOS with a source statement library, called library B, 
containing IBM-supplied macro definitions 1, 2, 3, 4, and 5. Thus, library 
A and library B can be represented as follows : 

Library A — Al, A2, A3, A8 , A9 

Library B — Bl, B2 , B3 , BU , B5 

For the libraries defined, macro-definition entries 1, 2, and 3 in library 
B are identical in name to 1 , 2 and 3 in library A, but a later version or 
update. Macro definitions 4 and 5 in library B are new IBM-supplied macro 
definitions for the release received, and macro definitions 8 and 9 are 
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user defined. The structures of the libraries defined here are used in the 
exairples that follow. 



Maintenance Examples Using MERGE Function 

For each example that follows: 

• The macro definitions updated are selected arbitrarily, 

• Library A is assumed to reside on disk drive A, and library B on disk 
drive B, 

• Library A is assumed to be the existing user library, and library B the 
IBM-supplied maintenance update (new release), 

• The techniques described can be applied by using only two disk drives. 

The following examples illustrate several ways to update an existing 
library. 



EXAMPLE lA: COPYING SELECTIVELY TO MERGE TWO LIBRARIES 

If the majority of the macro definitions desired are in library A, and it 
is desired to update macro definitions A2 and A3, selectively copy (merge) 
macro definitions B2 and B3 from IBM- supplied library B to library A. 
Thus, when there are many more macro definitions in one library than the 
other, it is faster to selectively copy to the library with the greatest 
number of entries, if there is enough space in the library being enlarged. 
If there is not enough space in library A, the unwanted macro definitions 
A2 and A3 must first be deleted from library A, and library A condensed 
before the transfer can be attempted. 

A representation of the results of selectively copying macro definitions 
B2 and B3 from library B to library A follows : 

Library A — Al, , , A8, A9, B2, B3 

Library B— Bl, B2, B3, BH, B5 

Note that the macro definitions B2 and B3 are added to the end of the 
library updated (library A). 
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EXAMPLE IB: VARIATION OF SELECTIVE COPYING TO MERGE TWO LIBRARIES 

A variation of the technique described in Example lA demonstrates the 
capability of transferring in any direction. Thus, if the majority of 
macro definitions are in library B, and it is desired to update macro 
definitions Al, A2, and A3, selectively copy macro definitions A8 and A9 
from library A to library B. 

A representation of selectively copying macro definitions A8 and A9 from 
library A to library B follows: 

library A — Al, A2 , A3, A8 , A9 

Library B — Bl , B2, B3 , BU , B5 , AS, A9 

Note that macro definitions A8 and A9 are added to the end of the library 
updated (library B). 



EXAMPLE 2A: DELETING UNWANTED ENTRIES FROM A LIBRARY AND MERGING LIBRARIES 
BY COPYING ONE TO THE OTHER 

Assuming that the majority of macro definitions are in library A, an 
alternate method of accomplishing an update similar to that described in 
Example lA follows. 

Delete macro definitions Bl , BU , and B5 from library B, and completly 
copy library B to library A. Thus, the IBM-supplied DELETESL book can 
delete all unwanted macro definitions from the source statement library, 
and the library transferred in its entirety. 

A representation of the results of deleting macro definitions Bl, B4, 
and B5 from library B, and copying library B follows: 

Library A — Al, , , A8, A9, B2, B3 

Librairy B — , B2, B3, , 

Note that library B is added to the end of library A, and that library A in 
Exair^le lA is identical to library A in this example. 



EXAMPLE 2B: VARIATION OF DELETING UNWANTED ENTRIES FROM A LIBRARY AND 
COPYING (MERGING) ONE TO THE OTHER 

A variation of the technique described in Example 2A that demonstrates the 
capability of transferring in any direction follows. 

Thus, to add macro definitions A8 and A9 to library B, delete macro 
definitions Al , A2 , and A3 in library A and then completely copy library A 
to library B. Again, the IBM- supplied DELETESL book can delete all 
unwanted IBM-supplied macro definitions from the source statement library. 

A representation of the results of deleting macro definitions Al, A2, 
and A3 from library A and copying library A to library B follows. 

Library A — , , , A8, A9 

library B — Bl , B2 , B3 , BU , B5 , A8 , A9 
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Note that user macro-definitions A8 and A9 are added to the end of the 
library being updated (library B), and library B in Example IB is identical 
to library B in this example. 



EXAMPLE 3: COPYING SELECTIVELY, MERGING TWO LIBRARIES TO CREATE A THIRD 
LIBRARY 

If space is a problem, a third library called C can be created to be a 
combination of selected macro definitions from both library A and library 
B. Thus, if the desired macro definitions in library A are A8 and A9 (the 
user's macro definitions), and Bl, B2, and B3 in library B (IBM-supplied) , 
then user macro definitions A8 and A9 can be selectively copied (merged) 
from library A to library C, and IBM-supplied macro definitions Bl, B2, and 
B3 can be selectively copied (merged) from library B to library C. The 
advantage of this technique is that the need for a condense or reallocation 
of an existing library is eliminated, and time is saved. However, the time 
required to initialize a third disk pack must be taken into consideration. 
A representation of the results of selectively copying library A and 
library B (merging) to create library C follows: 

library A — Al, A2 , A3, AS, A9 

Library B~ Bl , B2 , B3 , BU , B5 

Library C — Bl, B2, B3, AS, A9 

Note that liorary C requires less space than if either library A or library 
B were merged with each other. 



EXAMPLE U: DELETING UNWANTED ENTRIES FROM TWO LIBRARIES AND MERGING BOTH 
LIBRARIES TO CREATE A THIRD LIBRARY 

A variation of selectively copying from two libraries to form a third 
library follows. 

TO retain user macro definitions A8 and A9 in library A, and update 
IBM-supplied macro definitions Al, A2, and A3 in library A, delete Al, A2, 
and A3 from library A, and B4 and B5 from library B. Then completely copy 
(merge) library A and library B to create a third library C. 

A representation of the results of deleting unwanted macro definitions 
froir library A and library B, and copying (merging) both libraries to 
create a third library C follows: 

Library A — ,, , , A8, A9 

Library B — Bl, B2, B3, , 

Library C — Bl, B2, B3, A8, A9 

Note that library C requires less space than if either library A or B were 
merged with each other. Also note that library C in Example 3 is identical 
to library C in this example. 
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Considerations for Merging 

The DIBL and EXTENT file definition statements must precede the MERGE 
ccntrcl statement. When defining files, use the following rules: 

In merging to or from a modified, or duplicate system residence file, 
the modified or duplicate file name must be IJSYSRS, the logical unit must 
be SYS002, and the file ID (identification) must be identical to the ID 
supplied when the file was created. 

In merging to a private relocatable library file, the file name must be 
IJSYSRL, the logical unit must be SYSRLB, and the file ID must be identical 
to the ID supplied when the file was created. 

In copying from a private relocatable library file, the file name must 
be USYSPR, the logical unit must be SYSOOl, and the file ID must be 
identical to the ID supplied when the file was created. 

In merging to a private source statement library file, the file name 
must be IJSYSSL, the logical unit must be SYSSLB, and the file ID must be 
identical to the ID supplied when the file was created. 

In copying from a private source statement library file, the file name 
must be IJSYSPS, the logical unit must be SYSOOO, and the file ID must be 
identical to the ID supplied when the file was created. The file name, 
logical unit, and direction of transfer for each of the MERGE operations is 
indicated in the Figure 13. Any combination of the indicated operations 
can be performed in one job step. 



T r 

IJSYSRL 
SYSRLB 



File Name 
Logical unit 






Merge RES to NRS 
Merge NRS to RES 
Merge RES to PRV 
Merge NRS to PRV 
Merge PRV to RES 
Merge PRV to NRS 
Merge PRV to PRV 



IJSYSRS 
SYSRES 



from 

to 

from 

to 



IJSYSRS 
SYS002 



to 
from 

from 

to 



to 
to 



to 



USYSPR 
SYSOOl 



from 
from 
from 



IJSYSSL 
SYSSLB 



to 
to 



to 



IJSYSPS 
SYSOOO 



from 
from 
from 



Figure 13. Merge Operation File Name and Logical Unit Identification 

Diagnostic messages for erroneour; assignments, file definitions, etc., are 
provided on SYSLST. 

The following is an example of a iob set up for the MERGE function. The 
sections of the job are bracketed and numbered 1 through 8. The 
explanations that follow the job are keyed to the job sections. The 
example assumes two disk drives with addreiises of 190 and 191 that: 

1- the MERGE function of the CORGZ librarian program is on SYSRES which 
is on 190 by virtue of an IPL 

2, SYSRLB and SYSSLB are assigned to 191, SYSOOO and SYSOOl to 190, and 
SYS002 to 191. 

// JOB EXAMPLE 

// ASSGN SYSRLB, X* 191* 
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// ASSGN SYSSLB,X*191' 

// ASSGN SYS000,X*190' 

// ASSGN SYS001,X'190' 

// ASSGN SYS002,X*191' 

.[// DLBL I JSYSRL, • PRIVATE RL* ,69/365 
[// EXTENT SYSRLB, 111111,1,0,1500,10 

r// DLBL US YSSL, 'PRIVATE SL', 69/365 
[// EXTENT SYSSLB, mill, 1,0,1600,10 



gf// DLBL USYSPR, 'PRIVATE RL TEST', 69/365 
L// EXTENT SYSOOl, mill, 1,0, 1300, 10 

J// DLBL I JSYSPS, 'PRIVATE SL TEST', 69/365 
L// EXTENT SYSOOO, 111111, 1,0,1400,10 



I// D 
1// E 



LBL I JSYSRS, 'SYSTEM RESIDENCE' , 69/365 
EXTENT SYS002, mm, 1,0, 1,170 



// EXEC CORGZ 



NEWVOL RL=10(2),SL=10(2) 
COPYR AIL 
COPYS AIL 

"MERGE PRV, PRV 
COPYR ALL 
COPYS ALL 

MERGE NRS,PRV 
COPYR ALL 
COPYS ALL 



/* 
/6 



"Hie following explanations are keyed to the sections of the job: 

1. File definition statements for a private relocatable library file 
which is created and updated. 

2. File definition statements for a private soiirce statement library file 
which is created and updated. 

3. File definition statements for a private relocatable library file from 
which modules are copied. 

U. File definition statements for a private source statement library file 
from which books are copied. 

5. File definition statements for a modified, or duplicate system 
residence file from which modules and books are copied. Note that 
this file is the old SYSRES (with user programs). 

6. Creates private relocatable and source statement libraries on SYSRLB 
and SYSSLB and copies the relocatable and source statement libraries 
from the system residence file on SYSRES into them. 

7. Merges all modules and books from private relocatable and source 
statement libraries on SYSOOl and SYSOOO into the appropriate private 
libraries created on SYSRLB and SYSSLB. 
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8. Merges all modules and books from the relocatable and source statem* 
libraries of a modified, or duplicate system residence file on SYSO 
into private libraries created on SYSRLB and SYSSLB. 

For a more detailed description of the MERGE function see the System 
Control and System Service manual listed on the front cover. 



104 IBM S/360 DOS Sys . Gen, and Maint. 



Disk Operating System Sample Problems 



The sample problems provided with the Disk Operating System (DOS) 
demonstrate to the user, particularly the operator, each component of 
the programming system. Although the problems are general and 
illustrative rather than detailed and exhaustive, they nevertheless 
serve as a minimal test of each user's programming system. The user's 
programming system is built from the more general system supplied by 
IBM. 

The sample problems are designed to be run on a minimum system 
configuration including at least one 2311 disk drive (the system 
residence volume), a card reader/punch, printer, and a 1052 
Printer -Keyboard. The minimum background partition storage capacity 
reqiiired for each sample problem is given in Background Partitions 
Storage Requirements for Disk Operating System IBM- Supplied Programs . 

No data is required for any of the sample problems, except RPG, PL/I, 
Autotest, and multiprogramming. The requirements for each probleri are 
described in the examples that follow. 

All sample problems, except those for multiprogramming, are included 
in the IBM-supplied core image and source statement library volume. The 
multiprogramming sample problem is prepared by the user. Those sainple 
problems included in the source statement library volume are retrieved 
as card decks by the SSERV librarian program. Each card deck is either 
a source program or a set of control cards. Individual decks are 
preceded by a CATALS card and a BKEND card and followed by a BKEND card. 
Once the sample problems have been retrieved, they can be deleted from 
the user's operational system disk during system generation. 



Retrieving the Sample Problems 

The sample problems are retrieved from the second volume (core image and 
source statement library volume) during system generation. Although the 
order for retrieving the problems from the disk is optional, it is 
recommended that they be retrieved in the order of intended execution. 
This facilitates the task of preparing the job stream. The following 
job steps are necessary to retrieve all of the sample problems: 

// JOB SAMPLPRB 
// EXEC SSERV 

DSPCH Z.F01,Z.CB1,Z,RG1,Z.PL1,Z.AS1 

DSPCH Z.SM1,Z.UTTPPR1, Z.AS2,Z.SM2 

DSPCH Z,UTDKPR1,Z.AS3,Z. UTDCPRl 

DSPCH Z.AS4,Z.SW4,Z.UTTPPR2 

DSPCH Z.AS5,Z.SM5,Z. UTDKPR2 

DSPCH Z.A36,Z.SM6,,Z-UTDKPR3 

DSPCH Z-MCRl, Z.MCR2, Z.EU3SPRGM, Z.EU4SPRGM 

DSPCH Z.ATl,Z.ORDC,Z.ORJT,Z-VFUl 
/£ 

If you do not wish to retrieve a particular problem from the source 
statement library volume, delete the appropriate operand from the 
preceding DSPCH statement. All of the sample problems are in the Z 
sub-library and all of that sub- library can be retrieved with the DSPCH 
Z.ALL statement. 
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Card coliamns 73-80 in each sample problem deck (except RPG) contain 
an identification number and a sequence number. The identification 
number for the RPG sample problem deck is punched in columns 75-78. 
Card columns 1-5 contain the sequence number for RPG. Although these 
numbers can be used to identify individual sample problems, it is 
recommended that the cards be machine- interpreted. 

Figure lU shows the arrangement and identification and sequence 
numbers of each of the sample problem card decks produced by the SSERV 
librarian program during syston generation. These decks are punched in 
the order in which they are retrieved from the source statement library 
volume (preferably the intended order of program execution). To prepare 
each sample problem for execution, the user must: 

• Remove all CATALS and BKEND cards shown in Figure 14. If the RPG or 
PL/ I sample problem is retrieved, remove the *END SOURCE DECK/BEGIN 
INPUT CARDS card from the prog rams - 

• Punch and insert the necessary job control cards for each program to 
be run,, as shown in the exaroples- 

The programs are compiled or assembled, linkage edited, and executed 
with a minimum of operator intervention - 
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Cards 
Retrieved 



Card Cols. 
73 - 76 



Card Cols , 
77 -80 



CATALS Z.FOl 

BKEND Z.FOl 

FORTRAN Source Deck (22 cards) 

BKEND 

CATALS Z.ILFSAMPL 

BKEND Z.ILFSAMPL 

FORTRAN Source Deck (22 Cards) 

BKEND 

CARALS Z.CBl 

BKEND Z.CBl 

COBOL Source Deck (81 cards) 

BKEND 

CATALS Z.RGl 

BKEND Z.RGl 

R?G Source Deck (45 Cards) 

* END SOURCE DECK/BEGIN INPUT 

DATA 
RPG Data (13 Cards) 
BKEND 



\ 



> 



/ 



CATALS Z.PLl 

BKEND Z.PLl 

PL/1 Source Deck (38 Cards) 

*END SOURCE DECK/BEGIN INPUT 

DATA 
PL/I Data (1 Card) 
BKEND / 

CATALS Z.ASl 

BKEND Z.ASl 

Assembler Source Deck (23 Cards) 

BKEND 

CATALS Z.SMl 

BKEND Z.SMl 

S/M Control Cards (6 Cards) 

BKEND 

CATALS Z.UTTPPRl 

BKEND Z.UTTPPRl 

T -P Control Cards (2 Cards) 

BKEND 

CATALS Z.AS2 

BKEND Z.AS2 

Assembler Source Deck (23 Cards) 

BKEND 

CATALS Z.SM2 

BKEND Z.SM2 

S/M Control Cards (6 Cards) 

BKEND 

CATALS Z.UTDKPRl 

BKEND Z.UTDKPRl 

D -P Control Cards (2 Cards) 

BKEND 



FORTRAN 
Somple Problem 



FORTRAN IV 
Sample Problem 



COBOL 
Sample Problem 



RPG 

Sample Problem 



PL/I 

Sample Problem 



Assembler Sample Problem 1 
(Generate input for Tope 
Sort /Merge 



Sort/Merge Sample Problem 
(Generate input for 
Tape -to -Printer Utility) 



Tape -to -Printer Utility 
Sample Problem 



Assembler Sample 
Problem 2 

(Generate input for 
Disk Sort/Merge) 

Disk Sort/Merge 
Sample Problem 
(Generate input for 
Disk -to -Printer Utility) 



Disk -to -Printer 
Utility Sample Problem 



S451 



$479 



S452 



$460 



$464 



$465 



$400 



$462 



$465 



$450 



$461 



0001 - 0022 



0001 - 0022 



0001 - 0081 



0001 - 0038 



0001 - 0023 



0001 - 0006 



0001 - 0002 



0101 - 0123 



0001 - 0006 



0001 - 0002 



Figure 14. Sample Problem Card Decks Retrieved from IBM-Supplied Core 
Image and Source Statement Library Volumes (Part 1 of 3) 
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Cards 
Retrieved 



Card Cols, 
73 - 76 



Ca rd Cols, 
77 - 80 



CATALS Z,AS3 

3KEND Z.AS3 

Assembler Source Deck (23 Cards) 

BKEND 

CATALS Z.UTDCPRl 

BKEND Z.UTDCPRl 

DC-P Control Cards (2 Cords) 

BKEND 

CATALS Z.AS4 

BKEND Z.AS4 

Assembler Source Deck (23 Cords) 

BKEND 

CATALS Z. SM4 

BKEND Z.SM4 

S/M Control Cords (6 Cords) 

BKEND 

CATALS Z.UTTPPR2 

BKEND Z.UTTPPR2 

T - P Control Cards (2 Cards) 

BKEND 

CATALS Z.AS5 

BKEND Z.AS5 

Assembler Source Deck (23 Cards) 

BKEND 

CATALS Z.SM5 

BKEND Z.SM5 

S/M Control Cards (6 Cords) 

BKEND 

CATALS Z.UTDKPR2 

BKEND Z.UTDKPR2 

D - P Control Cords (2 Cards) 

BKEND 

CATALS Z.AS6 

BKEND Z.AS6 

Assembler Source Deck (23 Cords) 

BKEND 

CATALS Z.SM6 

BKEND Z.SM6 

S/M Control Cards (6 Cards) 

BKEND 

CATALS Z.UTDKPR3 

BKEND Z. UTDKPR3 

D - P Control Cords (2 Cords) 

BKEND 

CATALS Z.ATl 

BKEND Z.ATl 

Autotest Source Deck (27 Cords) 

Autotest Doto Deck (5 Cords) 

BKEND 



Assembler Sample 
Problem 3 

(Generate input for Data 
Cell -to -Printer Utility) 



Data Cell - to -Printer 
Utility Sample Problem 

Assembler Sample 
Problem 4 (Generate input 
for Tope and Disk 
Sort /Merge) 

Tope and Disk Sort/Merge 
2400 Sample Problem (Generate 
input for Tope -to - Printer 
Utility) 

Tope -to - Printer Utility 
Sample Problem 



Assembler Sample Problem 5 
(Generate input for Tope 
and Disk Sort/Merge 

Tape and Disk Sort/Merge 
2311 Sample Problem (Generate 
input for Disk -to -Printer 
Utility) 



Disk -to -Printer Utility 
Somple Problem 



Assembler Sample Problem 6 
(Generate Input for Tape 
and Disk Sort/Merge) 

Tope and Disk Sort/Merge 
2314 Somple Problem (Generate 
input for Disk -to -Printer 
Utility) 



Disk -to -Printer Utility 
Sample Problem 



Autotest Sample Problem 



$465 



$463 



$465 



$483 



$462 



$465 



$483 



$461 



$465 



$483 



$461 



$459 



0201 - 0223 



0001 - 0302 



0402 - 0423 



0001 - 0006 



0101 - 0102 



0502 - 0523 



0101 - 0106 



0101 - 0102 



0602 - 0623 



0201 - 0206 



0201 - 0202 



0001 - 0027 



Figure lU- Sample Problem Card Decks Retrieved from IBM-Supplied Core 
Image and Source Statement Library Volumes (Part 2 of 3) 



108 IBM S/360 DOS Sys, Gen. and Ma int. 



Cards 
Retrieved 



Ca rd Cols. 
73-76 



Card Cols, 
77-80 



CATALS Z.VFUl 

BKEND Z.VFUl 

VFUl Source Deck (65 Cards) 

BKEND 

CATALS Z.MCRl 

BKEND Z.MCRl 

MCRl Source Deck (71 Cards) 

BKEND 

CATALS Z.MCR2 

BKEND Z,MCR2 

MCR2 Source Deck (1 15 Cards) 

BKEND 

CATALS Z.ORDC 

BKEND Z.ORDC 

Optical Reader Source Deck (179 Cards) 

BKEND 

CATALS Z.ORJT 
BKEND Z.ORJT 
Source Deck (81 Cards) 
BKEND 

CATALS Z.EU3SPRGM 

BKEND Z.EU3SPRGM 

EU 1400 object decks and source decks 

BKEND 

CATALS Z.EU4SPRGM 

BKEND Z.EU4SPRGM 

EU 1400 object decks and source decks 

BKEND 



Vocabulary File 
Utility Sample Problem 



Magnetic Character 
V Recognition Devices 
/ (1412/1419) 



1287 Sample Problem 
Document Mode 



1285/1287 Sample 
Problem for Journal Tape 



1401/1440/1460 
Emulator Programs for 
IBM Model 2025/2030 



1401/1440/1460 
Emulator Programs for 
IBM Model 2040 



Refer to the Vocabulary File 
Utility Program publication 
listed on the front cover of 
this manual . 



$477 



$477 



S478 



$478 



0001 - 0071 



0001 - 0115 



0001 - 91 79 



1001 - 1081 



Figure 14. Sample Problem Card Decks Retrieved from IBM-Supplied Core 
Image and Source Statement Library Volumes (Part 3 of 3) 



The sample problems can be run as separate jobs; but, when possible 
should be run as successive job steps within an operating system 
environment- A PAUSE card placed at the end of each sample problem to 
be run in successive job steps allows the operator to make any necessary 
changes in device assignments. The order for running the sample 
probl«ns is not completely arbitrary. The assembler, sort/merge, and 
utility programs should be run consecutively; the output of one program 
becomes the input to the next program. The FORTRAN, Basic FORTRAN 
COBOL, PL/ I, VFUl, MICR, OCR, and RPG sample problems can either precede 
or follow the other programs. The sample problems for Autotest and 
multiprogramming should be run last when the programs are run as 
successive job steps. 



Physical and Logical I/O Assignments 



It is assumed that the user has made assignments for these logical I/O 
functions : 
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SYSLOG SYSPCH SYSOOl 
SYSRDR SYSLST SYS002 
SYSIPT SYSLNK SYS 00 3 

The preceding assignments are for the background problem program area 
only. The assignments necessary for the multiprogramming sample problem 
are included in the input test data for that problem. 

Unique disk extents must be assigned initially to SYSLNK, SYSOOl, 
SYS00 2, and SYS003. 

These extents can be assigned to the system residence pack as 
follows: 

SYSLNK 

// XTENT 1, 0,000166000, 000170009,' mill' , SYSLNK 

SYSOOl 

// XTENT 128,0, 000171000,000198002, •mill' , SYSOOl 

SYS00 2 

// XTEiSlT 128,0,000171003,000198006, » mill' ,SYS002 

SYS 00 3 

// XTENT 128, 0,000171007, 000198009, •111111' ,SYS003 

If standard assignments are missing, the necessary ASSGN cards should 
be inserted at the beginning of the job stream. After each job step of 
a sample problem, certain additional logical I/O assignments or 
reassignments may be required. Examples of such reassignments are shown 
in Figures 15 and 16. When reassignments are necessary, the user must 
furnish: 

• The channel and unit number (X'cuu*) for each tape or disk extent. 

• The proper disk pack serial number and data cell volume number in 
all DLAB and XTENT cards. 

Tape, Disk, and Data Cell Configurations 

In addition to the minimum system configuration, three tape drives are 
required to run the Tape Sort/Merge sample problem., and fiva tape drives 
are required to run the Tape and Disk Sort/Merge sample problem (2U00 
application). A 2314 direct access storage facility is required to run 
the Tape and Disk Sort/Merge sample problem (2314 application). For 
installations with 7-track drives, convert feature OFF and translate ON 
(X*B8* as third operand of ASSGN) must be specified. Where 9-track tape 
drives are used, the third operand (X*B8') can be omitted. The logical 
I/O assignments for tape are shown in Figure 15 and those for disk and 
data cell are shown in Figure 16. 

In addition to checking the proper function of each sample problem, 
the programs also test job control and linkage editor functions. They 
are helpful in verifying the correct generation of the user's 
operational system. The main purposes of the sample problems, however, 
are demonstration and instruction. 

A listing of the source program and job control cards is written on 
SYSLST for each problem. If LOG is keyed into the 1052 Printer-Keyboard 
at the beginning of the job, a listing of all job control cards and 
operator messages is written on SYSLOG (Figures 17, 18, 19, and 20). 
Detailed setup procedures, including job control cards, are given for 
each sample problem. 
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Note that the SYSIOG output for the m01/1440/lU60 Emulator Programs 
can be found in the Emulator Proqrair manual listed in the Preface. 



Sample Problen! 


Disk Extent 
No. 1 


Tape Drive 
No. ll 


Tape Drive 
No. 2' 


Tape Drive 
No. 3I 


Tape Drive 
No. 4 


Tape Drive 
No. 5 


Tope Sort/Merge Execute 


SYSRES 


SYS004 


SYSOOl 2 
SYS0033 


SYS0022 
SYSOO53 






Tape and Disk Sort/Merge 
(2400 Application) 


SYSRES 


SYSOOl 


SYS002 


SYS003 


SYS004 


SYS005 


Tape -to -Printer Utility Execute 


SYSRES 




SYS004 









1 . Tape drive number refers to X'cuu' operand in ASSGN card. 

2. If a 7- track tape drive is used, the third operand (X'B8') is required to turn byte convert off. 

3. For Tape Sort/Merge, SYSOOl and SYS003 must be assigned to the same tape drive, as must SYS002 and SYS005. 

Figuj^p 15. Sequence of Logical I/O Assignments for Tape Sort/Merge and 
Tape-to-Printer Utility Sample Problems 



Sample Problem 


Disk Extent No. 1 


Disk Extent No. 2 


Disk Extent No. 3 


Disk Extent No. 4 


FORTRAN or Basic FORTRAN: 










Compile 
Link Edit 


SYSLNK 
SYSLNK 


SYSOOl 
SYSOOl 


SYS002** 




Execute 










COBOL, RPG, Assembler: 










Compile 
link Edit 


SYSLNK 
SYSLNK 


SYSOOl 
SYSOOl 


SYS002 


SYS003 


xecute 










^UTOTEST: 










Assemble 
link Edit 
Execute 


SYSLNK 
SYSLNK 
SYSLNK* 


SYSOOl 
SYSOOl 


SYS002 


SYS003 


Disk Sort/Merge Execute 


SYS002 


SYS004 






Tape and Disk Sort/Merge 
(231 1 Application) 


SYSOOl 


SYS002 


SYS003 




Tope and Disk Sort/Merge 
(2314 Application) 


SYSOOl 


SYS002 


SYS003 




Disk -to -Printer Utility Execute 


SYS004 


SYS005 






Data Cell -to -Printer Utility Execute 


SYS 004 








1285, 1287, 1412/1419: 










Assemble 
Link Edit 


SYSLNK 
SYSLNK 


SYSOOl 
SYSOOl 


SYS002 


SYS003 


Execute 











* This is the Autotest work file (IJSYSAT). 
** FORTRAN IV only. 

Figure 16. Sequence of Logical I/O Assignments for Disk/Data-Cell 
Sample Problems 
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r : 

// JOB FORTRAN 

EOJ FORTRAN 

// JOB FORTRAN IV 

EOJ FORTRAN4 

// JOB COBOL 

EOJ COBOL 

// JOB RPG 

EOJ RPG 

// JOB PL/ I 

EOJ PL/I 

// JOB ASSEMBLE 

// PAUSE ASSGN SYS002 TO A 9 TRACK TAPE DRIVE 

EOJ ASSEMBLE 

// JOB SORT 

// PAUSE ASSGN SYS 002 TO SAME TAPE DRIVE AS IN PREVIOUS JOB 

// PAUSE ASSGN SYSOOl, SYS003, SYS004, SYS005 TO DIFF TAPES 

EOJ SORT 

// JOB TPPR 

// PAUSE ASSGN SYSOOU TO SYSOOl OF PREVIOUS JOB 

// PAUSE ASSGN SYS 00 5 TO THE PRINTER # 

8001D IS IT EOF 

EOJ TPPR 

// JOB ASSEMBLE 

// PAUSE ASSGN SYS002 TO SCRATCH PACK 

EOJ ASSEMBLE 

// JOB. DSORT 

// PAUSE ASSGN SYS002 AND SYSOOU TO SCRATCH PACK 

EOJ DSORT 

// JOB DKPR 

// PAUSE ASSGN SYS004 TO SCRATCH PACK 

// PAUSE ASSGN SYS005 TO THE PRINTER 

EOJ DKPR 

// JOB ASSEMBLE 

// PAUSE ASSGN SYSOOU TO DATA CELL 

// PAUSE MOUNT CELL nnnnnn ON STATION 3 

EOJ ASSEMBLE 

// JOB DCPR 

// PAUSE ASSGN SYS 00 4 TO DATA CELL 

// PAUSE ASSGN SYS005 TO THE PRINTER 

EOJ DCPR 

BG // JOB ASSEMBLY SAMPLE 4 

BG // PAUSE ASSGN SYS002 TO A 9 TRACK TAPE DRIVE 

BG 

BG EOJ ASSEMBLY 

BG // JOB SORT 2400 

BG // PAUSE ASSGN SYS002 TO SAME DRIVE AS PREVIOUS JOB 

BG 

BG // PAUSE ASSGN SYSOOl , SYS003, SYSOOU, SYS005 TO DIFF TAPES 

BG 

BG 79051 RCD IN 0002000, OUT 0002000, ESTIMATED 0000000 

BG 71011 END SORT PH 

BG 79051 RCD IN 0002000, OUT 0002000, ESTIMATED 0000000 

BG 7 2011 END MERGE PH 

Figure 17. SYSLOG Output for all Sample Problems Except 

Multiprogramming and Vocabulary File Utility Pro bl ens (Part 
1 of 3) 
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|BG 

|BG 

|BG 

|BG 

|BG 

|BG 

|BG 

|BG 

|BG 

lY 

JBG 

|BG 

IBG 

|BG 

|BG 

|BG 

|BG 

|BG 

|BG 

|BG 

|BG 

|BG 

|BG 

|BG 

|BG 

|BG 

I BG 

|BG 

jBG 

|BG 

|BG 

(BG 

|BG 

|BG 

|BG 

|BG 

|BG 

|BG 

|BG 

|BG 

|BG 

|BG 

|BG 

|BG 

JBG 

{BG 

|BG 

|BG 

|BG 

|BG 

|BG 

(BG 

|BG 

I EG 

|BG 



7 9051 RCD IN 0002000, OUT 0002000, ESTIMATED 0000000 

7 30 21 EOJ 

EOJ SORT 

// JOB TPPR 24 00 TO PRINTER 

// PAUSE ASSGN SYS004 TO SYSOOl OF PREVIOUS JOB 

// PAUSE ASSGN SYS005 TO THE PRINTER 

8 00 ID IS IT EOF 



EOJ TPPR 
ICOOA ATTN. 



OC. 



// JOB ASSEMBLY SAMPLE 5 

// PAUSE ASSGN SYS 002 TO SCRATCH PACK 

EOJ ASSEMBLY 

// JOB SORT 2311 

// PAUSE ASSGN SYSOOl ,SYS002,SYS003 TCf SCRATCH PACK 

7 9051 RCD IN 0002000, OUT 0002000, ESTIMATED 000 2000 

71011 END SORT PH 

79051 RCD IN 0002000, OUT 0002000, ESTIMATED 0002000 

7 2011 END MERGE PH 

79051 RCD IN 0002000, OUT 0002000, ESTIMATED 0002000 

73021 EOJ 

EOJ SORT 

// JOB DKPR 2311 TO PRINTER 

// PAUSE ASSGN SYS004 TO SCRATCH PACK 

// PAUSE ASSGN SYS 005 TO THE PRINTER 

ICOOA ATTN. OC. 

// JOB ASSEMBLY SAMPLE 6 

// PAUSE ASSGN SYS002 TO SCRATCH PACK 

EOJ ASSEMBLY 

// JOB SORT 2314 

// PAUSE ASSGN SYSOOl, SYS002,SYS003 TO SCRATCH PACK 

79051 RCD IN 0003000, OUT 0003000, ESTIMATED 0003000 

71011 END SORT PH 

7 9051 RCD IN 0003000, OUT 0003000, ESTIMATED 0003000 

7 2011 END MERGE PH 

79051 RCD IN 0003000, OUT 0003000, ESTIMATED 0003000 

7 30 21 EOJ 

EOJ SORT 

// JOB DKPR 23m TO PRINTER 

// PAUSE ASSGN SYS004 TO SCRATCH PACK 

// PAUSE ASSGN SYS005 TO THE PRINTER 

ICOOA ATTN. OC. 



Figure 17. SYSLOG Output for All Sample Problems Except 

Multiprogramming and Vocabulary File Utility Problems (Part 
2 of 3) 
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r 

|// JOB AUTOTEST 

EOJ AUTOTEST 

BG // JOB MCR SAMPLE PROBLEMS 

BG // PAUSE END OF MCRl SAMPLE PROBLEM 

BG 

BG INTERVENTION REQUIRED ON FILE 2 

BG EOJ MCR 

BG // PAUSE END OF MCR SAMPLE PROBLEMS 

BG 
|// JOB OPTICAL READER SAMPLE PROBLEM 

EOJ OPTICAL 
|// PAUSE END OF OPTICAL READER SAMPLE PROBLEM 

Note: If a multiprogramndng system, the message will be preceded by 

the appropriate prefix (BG, Fl, F2 or AR). | 

L J 

Figure 17, SYSLOG Output for All Sample Problems except 

Multiprogramming and Vocabulary File Utility Problems (Part 
3 of 3) 

The SYSLST output reproduces much of the SYSLOG output. In 
addition, SYSLST displays the source programs, storage maps, sort/merge 
and utility program control cards, problem results, and other 
information. If SYSLST is a 1403 Printer equipped with the Universal 
Character Set (UCS) feature, see UCS command in the Disk Operating 
System Operating Guide . If this specification is not made, the 
issuance of a control command by job control causes a command reject, 
resulting in job cancellation. 



r 1 

BG // JOB CATALOG- SAMPLE FOREGROUND /BACKGROUND PROGRAM 
BG EOJ CATALOG 

BG // JOB EXECUTE SAMPLE FOREGROUND/BACKGROUND PROGRAM 
IBG // PAUSE CARD READER END-OF-FILE SIGNALS END OF CARD INPUT 

BG 

BG 0P08A INTERV REQ SYSRDR=OOC 

CCSW=021000224002000000 SNS=U0OOO0OO0000 CCB=002220 

BG EOJ EXECUTE 

BG // PAUSE REFER TO PRINTER FOR ADDITIONAL INSTRUCTIONS 

BG assgn sysrdr,ua 

BG assgn sysipt,ua 

BG assgn syslst,ua 
|BG stop 

AR 116 OA READY FOR COMMUNICATIONS. 
jAR Start fl 

Fl assgn w/sOOl^x* 00c' 

Fl assgn sys^'^ ,x*00e* 

Fl exec cardprnt 

Fl OSIOI PROGRAM CARDPRNT COMPLETED 

Figure 18. SYSLOG Output for Multiprogramming Sairtple Problem 
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_^^ ^:&yie 






/23^S6 78 






MMth 


D^ 



D 

I 

o 


NAMI 




ADOKESS 


aiT-SIAII 




DfSCaiPTION 




HIANTITY ITEM NUMUI SERVICE NO. CODE 

05 2M-680 357 98 

01 36S25 4-68 1 

02 1 3579 205 2^ 
0\ 725»f6 763 63 

03 5638^ 920 57 
01 ^2679 ^31 76 
04- 6639Z 1 1 7 33 

7 sm 

j TOTAl 

C~l< Cknt* COO Larawiy j^^^ 

TAX 

1 O <3 / 7 TOTAl 
Said kr Aixh. N«. Vaid 

fOtMA 

021057 

Mivny DDK 


AMOUNT 




2S0O 

4-9 8 
3H-9 

/29 

1 ^7 

995 

3960 














8578 
1 50 

8728 




Figure 19. Optical Reader Sample Input Document for Document Mode 
Processing 
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ais 


345 b 


7aqc 


1S3 


4 5b 7 


aqQS 


S3/i 


5 b7 a 


qniT 


3AS 


b 7a q 


D15N 


4 5b 


7 aq D 


1S3 S 


5b7 


aqa 1 


S34 X 


b 7 a 


qoiE 


34 5C 


7flR 


1S3 


4 5b T 


aiD 


1S3 4 


5b7 Z 


<iai 


234 5 


b7a/ 


DIE 


34 5 b 


7aqc 


1S3 


4 5b7 


aqQS 


S3/: 


5b7a 


qn IT 


34 5 


b 7aq 


D15N 


4 5(> 


7flqD 


153 S 


5b7 


aqa 1 


E34 X 


E>7fi 


qais 


34 5C 


7 as 


ais3 


45bT 


ARD 


1S34 


5b7 Z 


qai 


S34 5 


b7a/ 


a IS 


345 b 


7aqc 


1B3 


4 5 b 7 


aqQS 


S34 


5b7a 


qoiT 


34 5 


b7aq 


D lEN 


4 5b 


7aqD 


1E3 S 


5b7 


aqo 1 


E34 X 


b7a 


qnis 


34 5C 


7flR 


ais3 


4 5b T 


fiRD 


1S34 


5b7 Z 


qni 


S34 5 


b7a/ 



Figmre 20. Optical Reader Sample Input for Journal Tape Mode Processing 



Examples of Sample Problem Execution and Output 



Basic FORTRAN 



Program Name is Z.FOl. The Basic FORTRAN sample problem generates all 
prime numbers between and 1000. To execute the Basic FORTRAN sample 
problem the following job control cards are needed: 

// JOB FORTRAN SAMPLE 
// OPTION LINK, LIST, LOG 
// EXEC FORTRAN 

Basic FORTRAN SOURCE DECK (22 cards) 
/* 
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// EXEC LNKEDT 

// EXEC 

/6 



SYSIOG output is shown in Figure 17. 

The following list summarizes the SYSLST output shown in Figure 21; 

• Job control cards 

• Source program listing 

• Object program storage map 

• Linkage editor storage map 

• List of prime numbers generated by the program 



// JCB F6KTKAN SAHPLb 
// LPllCH LINK. LIST, LUG 
// EXEC FORTRAN 



DISK OPERATINli SySTtM/360 FORTRAN 360N-FO-451 30 



PRIME NUMBER PROBLEM 

100 MRITE (3,&J 

8 FORMAT (ii2H FOLLOtaINu I^ 
/19X,lhl/19X,lH2/lSX,lH3) 

101 1=5 

3 A=l 

102 A=S(jKT(A) 
1C3 J=A 

104 00 1 K=3,J,2 

105 L=I/K 

106 IF(L*K-I)1,2,4 

1 CONTINUE 

107 taRITE (3.5)1 

5 FORMAT (120) 

2 1=1+2 

106 1F(1000-I)7,4.3 

4 WRITE (3,9) 

9 FORMAT (14H PROGRAM ERROR) 
7 HRITE (3.6) 

6 FORMAT (31H THIS IS THE END OF THE PROGRAM) 
109 STOP 

ENO 



LIST OF PRIME NUMBERS FROM 1 TO 1000/ 



»4510001 
*45100 02 
»4510003 
*4510004 
$4510005 
$4510006 
$4510007 
$4510008 
$4510009 
$4510010 
$4510011 
$4510012 
$4510013 
$4510014 
$4510015 
$4510016 
$4510017 
$4510018 
$4510019 
$4510020 
$4510021 
$4510022 





01/01/68 


FORTMAIN 








0002 














SCALARS 












SYMBOL 


LOCATION 


SYMBOL 


LOCATION 


SYMBOL 


LOCATION 


SYMBOL 


LOCATION 


SYMBOL 


LOCATION 


i 


CC6C 


A 


0070 


J 

CALLED 


0074 
SUBROUTINES 


K 


0078 


L 


007C 


IJTAPST 


IJTACOM 


IJTSSgT 


SSRT 














LABEL 


LOCATION 


LABEL 


LOCATION 


LABEL 


LOCATION 


LABEL 


LOCATION 


LABEL 


LOCATION 


COICC 


0078 


00008 


0088 


00101 


00D8 


00003 


OOEO 


00102 


0100 


00103 


ClOE 


00104 


012C 


00105 


0134 


00106 


0144 


00001 


015E 


0C1C7 


0172 


00005 


0190 


00002 


019A 


00108 


01A6 


00004 


OIBC 


CC009 


ClOC 


00007 


01E8 


00006 


OlFC 


00109 


0226 







COMPILATION COMPLETE AMOUNT OF COMMON 000000 



AMOUNT OF COKE 000696 



ADDRESS BASE TABLE 



// EXEC LNKEDT 



Figure 21. SYSLST Output for Basic FORTRAN Sample Problems (Part 1 of 2) 
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JOti FCrtTRAN 



DISK LINKAGE tOITUH 0IAG»4OSTIC OF INPUT 



ACTION TAKEN MAP 

LIST AliTULINK IJTACOH 

LIST AuTOLINK IJTACGN 

LIST AUTOLINK IJTAPST 

LIST AUTOLINK IJTFIOS 

LIST AUTOLINK IJTSStiT 

LIST ENTRY 



01/01/68 PHASE XFR-AD LOCORE HICORE OSK-AO ESO TYPE LABEL 
PHASE*** 002000 002000 C0't29F 15 9 1 



LOADED REL-FR 



CSECT 


FORTMAIN 


002000 


002000 


CSECT 


IJTAPST 


003510 


003510 


CSECT 


IJTACOM 


0022B8 


002288 




ENTRY 


IJTSAVE 


002820 




CSECT 


IJTSSQT 


0041F8 


0041F8 




ENTRY 


SORT 


0041FE 




CSECT 


IJTACON 


002880 


002880 


* 


ENTRY 


FCVFI 


002B80 




* 


ENTRY 


FCVFO 


002884 




» 


ENTRY 


FCVEI 


002888 




* 


ENTRY 


FCVEO 


002B8C 




* 


ENTRY 


FCVII 


002B90 




* 


ENTRY 


FCVIO 


002B94 




* 


ENTRY 


FCVOI 


002D3E 




* 


ENTRY 


FCVOO 


002F46 




CSECT 


IJTFIOS 


0035A0 


0035A0 




ENTRY 


UNITABE 


003Fa6 




* 


ENTRY 


OUIQXXE 


0030BA 




* 


ENTRY 


GETUNTE 


00396A 




* 


ENTRY 


OPENUNE 


0039B8 




» 


ENTRY 


SETLGUE 


003C26 




* 


ENTRY 


CCMNOIE 


003F58 




* 


ENTRY 


OSKWTHE 


003E60 




* 


ENTRY 


ASNBUFE 


003 FF4 




* 


ENTRY 


FILTABE 


003EE8 




* 


ENTRY 


BUFINNT 


004142 




* 


ENTRY 


NRFSWE 


0030B8 




* 


ENTRY 


CLOSUNE 


003B56 





FULLOMING IS A LIST OF PRIME NUMBERS FROM 1 TO 1000 
1 



977 

983 
991 
997 
THIS IS THE END OF THE PROGRAM 



EOJ FORTRAN 



Figure 21, SYSLST Output for Basic FORTRAN Sample Problems (Part 2 of 2) 



FORTRAN 



Program Name is Z.ILFSiVMPL, 
numbers between 2 and 1000. 
stateirents are needed: 



This sample problem generates all prime 
To execute it, the following job control 



// JOB FORTRAN^ SAJ^PLE 
// OPTION LINK, LIST, LOG 
// EXEC FFORTRAN 
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FORTRAN IV SOURCE DECK (22 cards) 

/* 

// EXEC LNKEDT 

// EXEC 

/♦ 

SYSLOG output is shown in Figure 17 - 

The following list summarizes the SYSLST output shown in Figure 22. 

• Job control cards 

• Source program listing 

• Object program storage map 

• Linkage editor storage map 

• List of prime numbers generated by the program 
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// JDB P0RTH/1N4 S&MPLE 
// OPTinN LINK, LIST, LOG 
// EXEr FFHRTPSN 


00.0?. AS 


w»p 


YES 




LOAO 


YES 




PECK 


NO 




LIST 


YES 




LISTX 


NO 




EEcnic 







nrS FORTOsNI IV 150M-cn_47Q ->_n MAINPGM 1»TP oq/77/|i,o f 
r POtMf MIIMOFR ';cNi=P«TOR 

nmi MPTT"= (-".ll 

OP"? 1 FODMST (MFPLLnwiNS IS 4 LI"^T nc ootMc >j|inocp<; runM ? to \r 

*}oy, <■?< f} qx, ■?•) 

prn-> no /^ T=B, 1001,7 

op"4 K = snpT(Ei_nsT(i ) ) 

000"^ on ? j=-(,K,7 

OPPfc 1"= («"0(I,J) .PQ. 0) GO TO 4 

PPOT 7 nnHTIMlIF 

PPOO W^TTC (T,T) T 

O^OO 7 FnPMJT (T7P1 

npi p 1^ nMTtNMic 

0"11 WPTT'= (3, 1?) 

0P12 S ciRMUT t' THIS IS THE END OF th"^ oporPiM') 

0P13 -jthp 

nni4 FN" 



nn? FPPTRAM IV TfiOM-cp-A"'" 3-p M4INPGM nsTt '>R/'?/6n TIME 00.00.12 DArc nnm 

<;C«L«R MAP 
t;YMnni LHCATTPW SYMRHL LOCATION SVMBPL LPPATinw «:y«bpl IDCATIOM <;v><Bn| |or«TTnw 

T AP K ^<^ J /"■ 

SimPDDGRAMS CALLEO 
SYMPHL LOCATION SYMBOL LOCATION ^VMPOL LorSTjnw SVMROL lOCATION tlYMini IPCATIfiM 

TBCOM^ AC SORT 80 

FOOMAT STATEMENT m" 
<;YMBni LOCATION SVMBOL LOCATION SYMl^pL Lnc»TTnN SYMBOL LOCATION CYMB"l Lor«TTnw 

1 C ■< 108 •; 'PC 

TOTAL MFMPRY OPPIJIBFMFMTS P007B7 BYTES 



pp. OP. ?3, TOTAL "-PMOTLATION TIMF ,00 .00 . 21 



Figure 22. SYSLST Output for FORTRAN U Sample Problems (Part 1 of 3) 
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jnR FpPTOJM't 



TT";k LTMKA3E EOITQR DI »r,Nri<:TT r, nc TWPIIT 



TSKCM 


«SO 


SIITHLTMK 


iLPfiriM 


ilimL T»'K 


Tl'^&'^rnM 


AIITni TWK 


TLPFIM1' 


^^|TnLTMK 


llFFinrs 


iUTPL INK 


TJJfoniM 


«IJTPL IMK 


TL'=nx"r<; 


MITHLTNIK 


UCC;<;r,RT 


M|Tn|_TMK 


TLF|IMT^R 



J/f-l 0H4SP X"-»n LHCnpc HIGGLE OSK-AD 

PMS<:f*** no?""!" nr,par^n onsFEF 39 05 ^ 



FSf^ TVPC 


LUBFt 


LPinFn 


PFL-FR 


rsFrr 


M4IMPf-,M 


007nnn 


nopBoo 


rsFfT 


TLFIPf.nM 


on74fln 


1074BB 


FNTRY 


TP.CnM= 


Ti7»pn 




* FMI"/ 


np<;Y'^ 


00377r 




FNTBY 


TWT<:« 


nO'^RRT 




FMTPY 


pnp»B 


00-»f.SA 




CNTPY 


nuMo<;w = 


omft^6 




* FNTPY 


IJTTNTSW 


on^p"?! 




CSFTT 


IL'=S«;OPT 


on'^FAo 


-insFto 


CMTRY 


<;oRT 


OOSFAT 




r^FtT 


ILFHTNT 


on«»Ai 


inzjSio 


CNTPY 


S8VFRO 


OOAi^flO 




r<:FrT 


ILF4nC0N 


OO^ono 


nniono 


FNTPY 


!LFF<-yFn 


10't4»F 




FMTRY 


TLFFfVln 


omrfi? 




FMTRY 


TLFFCVTH 


OT^Fir 




FMTRY 


ILFFfWCO 


in4ftCfl 




FNTRY 


iLFFcvtn 


nniBn2 




FMTPY 


TLF^rvrn 


T13B?C 




FNTPY 


TNT6«;W 


r)04«no 




r<i<^rj 


iLFFinrs 


noisOTO 


OO'SOTo 


FNTRY 


TLFFBORn 


no-sncv 




0.1TRY 


ILFB"=npr; 


nnspro 




FNTPY 


TJSY<;Ln 


lOSOAO 




FNTPY 


ADinrR- 


oo';rp« 




CIFfT 


TLFUNT4B 


no«;FFr) 


0"SFFO 


CSFCT 


TLFninr*; 


OfT^ron 


oosrnR 


FNTPY 


ILFmnCP 


n05rP? 




* FNTRY 


nior«;= 


lO'^ron 




r^FfT 


TjjconiN 


nn<i47<t 


00>;»7a 


* FNTPY 


IJjrpns 


00'5«78 




c<;fct 


IJ2L0005 


OO^iOR 


005070 



Figure 22. SYSLST Output for FORTRAN 4 Sample Problems (Part 2 of 3) 
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F"lirviMr, 



« LT-iT OF OOTU 



lllMR-iRS FROM 2 TO ion 



^q7 
4^1 



4^1 

z,->q 

44" 
4";"' 
461 
4ft-^ 
46"' 
4-7q 
4<1-' 
40\ 



<511 
q-^-I 




Figiire 22. SYSLST Output for FORTRAN U Sample Problems (Part 3 of 3) 
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COBOL 

Program Name is Z.CBl. The COBOL sample proDlem generates and prints a 
table of weekly, monthly, and annual salaries based on ten dollar 
increments in monthly salary from $500 to $1000. To execute the COBOL 
sample problem the following job control cards are needed: 

// JOB COBOL SAMPLE 

// OPTION LINK, LIST, LOG, LISTX, DUMP, SYM, ERRS 

// EXEC COBOL 

COBOL SOURCE DECK (81 cards) 
/* 

// EXEC LNKEDT 
// ASSGN SYS004,X'cuu* (SYS004 must be assigned to printer designated as 

SYSLST during system generation) 
// EXEC 
/€ 

SYSLOG output is shown in Figure 17. 

The following list summarizes the SYSLST output shown in Figure 23: 

• Job control cards 

• Source program listing 

• Data division storage map 

• Procedure division storage map 

• Diagnostics 

• Linkage editor storage map 

• Table of salaries generated by the program 
Note : Output is on SYSOOU (same as printer). 
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// Jbb CudUL bArtPLE 

// OPTION LINK, LIST, LObtLlSTX, DUMP, SVM, ERRS 

// tXtC CUbOL 













— '" ' 




. — 


' ""^ 


LImE N<j. 


SEU. NO. 




source statement 


cbd 


CL3-0 




1 


OCilOlC 


lOENTIFICATIUN DIVISION. 






$4520001 




^ 


001020 


PROORAM-IO. 'C360SAMP'. 






$4520002 




J 


001030 


REMARKS. 








$4520003 




4 


OC104C 




EXAMPLE UF A 360 COBOL PROGRAM TO 




$4520004 




3 


C0105C 




COMPUTE Salaries. 






$4520005 




6 


C01C6C 


cNW 


IKUNMtNT DIVISION. 






$4520006 




7 


CC1070 


CuNFIGORATION SECTION. 






$4520007 




8 


001080 


SOUKCE-COMPUTtR. ldM-3t.O. 




$4520008 




9 


001090 


OBjECT-CUMPUTcR. IBM-360. 




$4520009 




IC 


OOllOC 


INPUT-OUTPUT SECTION. 






$4520010 




11 


001110 


file-contkul. 








$4520011 




1^ 


001120 




SELECT SALARY-FILE 






$4520012 




13 


001130 




ASSIGN TO •syS004' UNIT-RECORD 1403. 


$4520013 




14 


001140 












$4520014 




15 


001150 


DATA DIVISION. 








$4520015 




16 


OOlloO 


FILE SECTION. 








$4520016 




17 


0C117C 


FD 


SALARY-FILE 








$4520017 




16 


001180 




LABEL RECORDS ARE OMITTED 




$4520018 




19 


001185 




RECORDING MODE IS F 






$4520019 




20 


001190 




DATA RECORD 


IS SALARY-RECORD. 




$4520020 




i!l 


001200 


01 


SALARY-RECORD 






$4520021 




22 


001210 




PICTURE X(IOO). 






$4520022 




23 


001220 


MORKING-STORAOE 


SECTION. 






$4520023 




24 


001230 


77 


TOTAL-A 


PICTURE 


9(6)V99 VALUE ZERO. 


$4520024 




2d 


001240 


77 


TOTAL-B 


PICTURE 


9(o)V99 VALUE ZERO. 


$4520025 




2c 


001250 


77 


TOTAL-C 


PICTURE 


y(6)V99 VALUE ZERO. 


$4520026 




27 


002010 


77 


HEEKLY-PAY 


PICTURE 


999V99. 




$4520027 




20 


002020 


77 


MONTHLY-PAY 


PICTURE 


9999V99. 




$4520028 




29 


002C30 


77 


ANNUAL-PAY 


PICTURE 


99999V99. 




$4520029 




30 


002C4C 


77 


CUN-A PICTURE 9(6) V99 VALUE IS 008826.69. 


$452003 




31 


002050 


77 


CUN-B PICTURE 9(6)V99 VALUE IS 038250.00 . 


$4520031 




j2 


002CbO 


77 


CON-C PICTURE 9t6)V99 VALUE IS 459000.00 . 


$4520032 




33 


002070 


01 


SALARI ES. 








$4520033 




34 


C02CbO 




02 FILLER 


PICTURE 


A{',6J VALUE 


SPACE. 


$4520034 




35 


002C9C 




02 WEEKLY 


PICTURE 


111.99 . 




$4520035 




30 


002100 




02 FILLER 


PICTURE 


AAA VALUE 


SPACE. 


$4520036 




j7 


002110 




02 MONTHLY 


PICTURE 


Z2ZZ.99 . 




$4520037 




38 


002120 




02 FILLER 


PICTURE 


AAA VALUE 


SPACE. 


$4520038 




39 


002130 




02 ANNUAL 


PICTURE 


lLLLL.99 . 




$4520039 




4C 


0C214O 




02 FILLER 


PICTURE 


AiZH VALUE 


SPACE. 


$4520040 




41 


002150 


01 


MESb. 








$4520041 




42 


002160 




02 FILLER 


PICTURE 


A(40) VALUE 


SPACES- 


$4520042 




43 


00217C 




02 SHOM 


PICTURE 


A(26). 




$4520043 




44 


002180 


01 


DSPY. 








$4520044 




4;j 


002190 




02 FILLER 


PICTURE 


A(40) VALUE 


SPACES. 


$4520045 




40 


OC220C 




02 PRSNT 


PICTURE 


A133). 




$4520046 




47 


002210 


01 


Heading. 








$4520047 




48 


002220 




02 FILLER 


PICTURE 


A(46J VALUE 


SPACES. 


$4520048 




49 


002230 




02 WEEKLY 


PICTURE 


A(b) VALUE 


IS "WEEKLY". 


$4520049 




5C 


C02240 




02 FILLER 


PICTURE 


A(3) VALUE 


IS SPACES. 


$4520050 




51 


002250 




02 MONTHLY 


PICTURE 


A(71 VALUE 


IS "MONTHLY". 


$4520051 




52 


003010 




02 FILLER 


PICTURE 


A(3) VALUE 


IS SPACES. 


$4520052 




53 


003020 




02 ANNUAL 


PICTURE 


A(6) VALUE 


IS "ANNUAL". 


$4520053 




54 


003030 




02 FILLER 


PICTURE 


A(29) VALUE 


IS SPACES. 


$4520054 





Figure 23. SYSLST Output for COBOL Sample Problems (Part 1 of 5) 
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LIrtc NO. 


SE«. No 


55 


CC304C 


5b 


003C50 


57 


00J06C 


5U 


C0J07C 


5i 


COjOuO 


60 


0C3C90 


61 


003100 


6^ 


0C311C 


6J 


003120 


o4 


0C313C 


65 


C0314C 


66 


003150 


67 


0C3160 


66 


003170 


6S 


003160 


7C 


CC:il9C 


71 


L0ji:OC 


72 


00J21C 


73 


003220 


74 


00323C 


75 


003240 


7e 


00325C 


77 


00401C 


7a 


004020 


79 


004030 


60 


004040 


61 


C04C5C 



SOUROt iXATtrtfcWT 



HkOctOUKh uiS/lSiuN. 
ilAKT. 

(JPtN OUTPUT SALAKY-HLt. 

»iKlTE SALARY-RtCUKJ Fkurt HEAOING AFTER AUVArtCINO LINES. 

PtRFORrt Calculations 

VARYING HuNTHLY-PAY FROM 500 BY 10 

UNTIL MONTHLY-PAY IS GREATER THAN 1000. 

IF TOTAL-A = CU/»-A ANU TOTAL-B = CON-B AND lOTAL-C = CUN-C 

MOVE 'TABLE VALUES ARE CORRcCT' TO SHOW 

URITE SALARY-RcCURO FROM MESo AFTER AOVAWCING 2 LINES 

ELSE 

MOVE 'TABLE VALUES ARE NOT CORRECT' TO PRSNT 

WRITE SALARY-ReCORU from USPY AFTER ADVANCING 2 LINES. 
CLOSE SALARY-FILE. 
5I0P RUN. 

CALCULATIONS. 

COHPUTt hEtKLY-PAY = 3 * MuNTmLY-PAY / 13 

COMPUTE ANNUAL-PAY = 12 * MONTHLY-PAY 

MOVE WEEKLY-PAY To WEEKLY IN SALARIES 

MOVE MUNTHLY-PAY TO MONTHLY IN SALARIES 

MOVE ANNUAL-PAY TO ANNUAL IN SALARIES 

ADD WEEKLY-PAY To TOTAL-A 

ADD MONTHLY-PAY TU TOTAL-b 

ADD ANNUAL-PAY To TOTAL-C 

WRITE iALARY-RECORD FROM SALARIES AFTER AuVANCING 1 LINcS. 



DATA DIVISION MAP 



TYPE 


LOCATION 


DATA NAME 


FILE 




SALARY-FILE 


REC 


0000000 


SALARY-RECORD 




0000000 


TOTAL-A 




OC00006 


TOTAL-fa 




0000010 


TOTAL-C 




0000016 


mEEKLY-PAY 




OOOOOID 


MONTHLY-PAY 




000002^ 


ANNUAL-PAY 




000002A 


CON-A 




0000032 


CON-B 




000003A 


CON-C 


REC 


0000048 


SALARIES 




0000076 


WEEKLY 




000007 F 


MONTHLY 




0000089 


ANNUAL 


KfcC 


OOOOOBO 


MESG 




0000OD8 


SHOo 


REC 


OOOOOFd 


DSPY 




0000120 


PRSNT 


REC 


0000148 


HEADING 




0000176 


WEEKLY 




000017F 


MONTHLY 




0000189 


ANNUAL 



$4520055 
$4520056 
$4520037 
$4520058 
$4520059 
$4520060 
$4520061 
$4520062 
$4520063 
♦4520064 
$4520065 
$4520066 
$4520067 
$4520068 
$4520069 
$4520070 
$4520071 
$4520072 
$4520073 
$4520074 
$4520075 
$4520076 
$4520077 
$4520078 
$4520079 
$4520080 
$4520081 



Figure 23. SYSLST Output for COBOL Sample Problems (Part 2 of 5) 
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HKUUtOOl<t 


UlViSIUl 


nAP 
























LlNt/PuS AUUR 


INiTRoOTIUN 




LlNt/Pui 


AOOK 




INSTRUCT lUN 




lINfc/PDS ADDR 




INSTRUCTION 




(;0€57 


01 000406 


tiiTky 










00057 


01 


0004Ffc 


58 


00 


3 


190 






00057 


01 


000508 


OA 


10 










t/OCsd 


CI O0J50A 


07 bo 


3 


JIO 


3 


010 


00038 


Cl 


OOuSlO 


41 


CO 


A 


iC8 






00038 


01 


000514 


50 


00 


3 


010 






OOCbo 


01 000S16 


U7 03 


A 


ICb 


A 


1C8 


00058 


01 


00051t 


41 


CO 


A 


200 






00058 


01 


000522 


50 


00 


A 


ICC 






i>0o5o 


01 000526 


0^ 06 


A 


100 


A 


^26 


00056 


01 


00052C 


92 


OA 


3 


014 






00058 


01 


000530 


41 


10 


A 


320 






occsa 


01 000534 


41 00 


3 


010 






00058 


01 


000538 


OA 


02 










00058 


01 


00053A 


41 


10 


A 


310 






CCCSB 


01 0Ou53E 


41 00 


3 


010 






00058 


01 


000542 


OA 


02 










0005b 


01 


000544 


58 


90 


A 


lEO 






cocss. 


01 000346 


L)2 63 


9 


000 


A 


146 


00059 


01 


00054t 


92 


Fl 


9 


000 






00059 


01 


000552 


02 


02 


3 


Oil 


A 


IFl 


0CC5V 


01 000556 


02 02 


3 


015 


A 


icl 


00039 


01 


00055t 


5B 


10 


3 


010 






C0059 


01 


000566 


50 


10 


3 


018 






00C&9 


01 00056A 


ii^ 0^ 


A 


IFl 


3 


019 


00059 


Ci 


0005 ?0 


58 


10 


3 


014 






00059 


01 


000578 


50 


10 


3 


018 






CoCSS 


01 000570 


02 02 


A 


lEl 


3 


019 


00059 


01 


000582 


48 


10 


A 


IFC 






00059 


01 


0005 86 


06 


10 










C0C59 


01 0005O6 


40 10 


A 


1F6 






00059 


01 


00056C 


58 


00 


3 


194 






00059 


01 


000590 


50 


00 


A 


108 






O0C59 


CI 0G..594 


96 2C 


A 


100 






00059 


01 


000598 


92 


01 


A 


IFO 






00059 


01 


00059C 


41 


10 


A 


1C8 






OOOiv 


CI 0oC5Ao 


41 00 


3 


2oo 






0CC59 


Cl 


000560 


4/ 


10 


3 


2S6 






00C59 


01 


00Q5B4 


OA 


07 










0CCS9 


01 000566 


02 02 


A 


Itl 


3 


Oil 


00C59 


Cl 


0005 bC 


D^ 


02 


A 


Iri 


3 


015 


00059 


01 


0005C2 


58 


90 


A 


ito 






00060 


01 0005C6 


02 01 


3 


1A6 


3 


636 


00060 


01 


0005CC 


02 


01 


3 


63t> 


3 


1A4 


00060 


01 


000502 


92 


FO 


A 


010 






COC60 


01 0005D6 


02 04 


A 


OlE 


A 


010 


00060 


01 


0005uC 


F3 


31 


A 


010 


A 


2 08 


00060 


01 


0005^2 


03 


00 


A 


022 


A 


020 


00060 


CI 0C05Ea 


96 FO 


A 


020 






00060 


01 


0005fcC 


47 


FO 


3 


2 EC 






00062 


01 


0O5F0 


F2 


35 


3 


038 


A 


010 


0oC6 2 


CI 0005F6 


07 03 


3 


010 


3 


010 


000<j2 


01 


0005FC 


03 


02 


3 


010 


A 


200 


00062 


01 


000602 


Dl 


01 


3 


010 


A 


200 


coc6<; 


CI vjoooca 


01 00 


3 


013 


A 


2D2 


00062 


01 


00060t 


F9 


33 


3 


038 


3 


010 


00062 


01 


000614 


47 


20 


3 


326 






00060 


01 00061B 


47 FO 


3 


2F0 






00060 


01 


00061C 


47 


FO 


3 


2 CO 






00060 


01 


000620 


47 


FO 


3 


4C0 






0CL6O 


CI 000624 


F2 F5 


3 


168 


A 


CIO 


00060 


Ol 


000ti2A 


07 


OF 


3 


000 


3 


000 


00060 


01 


000630 


03 


01 


3 


ODD 


A 


20A 


ClyOoC 


01 000636 


Jl OC 


3 


000 


A 


20A 


OOOoO 


01 


00063C 


01 


00 


3 


OOF 


A 


20B 


00060 


01 


000642 


FA 


FF 


3 


166 


3 


000 


CtOoO 


01 000648 


f6 5F 


A 


ClO 


3 


166 


00060 


01 


00064E 


96 


FO 


A 


22 






0006C 


01 


000652 


47 


FO 


3 


2C0 






CCC60 


01 00C656 


02 01 


3 


636 


3 


1A6 


00063 


01 


000O5C 


F2 


47 


3 


03E 


A 


000 


00063 


01 


000662 


F2 


47 


3 


054 


A 


02 A 


00063 


01 000668 


F9 44 


3 


03t 


3 


C54 


000o3 


01 


00066t 


47 


70 


3 


40A 






00063 


01 


000672 


F2 


47 


3 


03E 


A 


008 


0CC63 


01 0CC678 


F2 47 


3 


C34 


A 


032 


00063 


01 


0006 7 E 


F9 


44 


3 


03t 


3 


054 


00063 


01 


000684 


47 


70 


3 


40A 






CC063 


01 000686 


F2 47 


3 


03t 


A 


010 


00063 


01 


00068E 


F2 


47 


3 


054 


A 


03A 


00063 


01 


000694 


F9 


44 


3 


03E 


3 


054 


0CC6i 


CI 0CC69A 


47 70 


3 


4CA 






00064 


01 


00069t 


02 


17 


A 


008 


A 


20C 


00C64 


01 


0006A4 


92 


40 


A 


OFO 






00 064 


01 OC0eA8 


02 00 


A 


OFl 


A 


OFO 


00065 


01 


0006At 


02 


41 


9 


000 


A 


OBO 


00065 


01 


0006B4 


92 


40 


9 


042 






00063 


CI 000668 


02 20 


9 


043 


9 


C42 


00065 


01 


0006BE 


92 


FO 


9 


000 






00065 


01 


0006C2 


02 


02 


3 


Oil 


A 


IFl 


00063 


CI coc6Ca 


02 02 


3 


015 


A 


Itl 


00065 


01 


00060t 


56 


10 


3 


010 






00065 


01 


00060O 


50 


10 


3 


018 






0'}C6b 


Cl QC060A 


U2 02 


A 


IFl 


3 


C19 


00063 


01 


0006EO 


5b 


10 


3 


014 






00065 


01 


0006E8 


50 


10 


3 


018 






00065 


CI 0006tC 


02 02 


A 


lEl 


3 


019 


00065 


01 


0006F2 


4b 


10 


A 


IFC 






00065 


01 


0006F6 


06 


10 










OvC65 


Cl 0C06F& 


40 10 


A 


1F6 






00065 


01 


0006FC 


5o 


00 


3 


198 






00065 


01 


000700 


50 


00 


A 


108 






OcOeS 


01 CC07C4 


96 20 


A 


100 






CO 065 


01 


000708 


92 


01 


A 


IFO 






U0065 


01 


00070C 


41 


10 


A 


1C8 






00065 


01 000716 


41 00 


3 


3F6 






00065 


01 


000720 


47 


10 


3 


3F6 






00065 


01 


000724 


OA 


07 










0CCb5 


01 0C0726 


02 02 


A 


Itl 


3 


Oil 


00065 


01 


00072C 


02 


02 


A 


IFl 


3 


015 


00065 


01 


000732 


58 


90 


A 


lEO 






0006J 


Cl TSCC736 


47 FO 


3 


4A2 






00067 


01 


00073A 


02 


IB 


A 


120 


A 


2F4 


00067 


01 


000740 


92 


40 


A 


13C 






00067 


Cl 000744 


02 03 


A 


130 


A 


13C 


00068 


01 


00074A 


02 


48 


9 


000 


A 


0F8 


00068 


01 


000750 


92 


40 


9 


049 






OO068 


Cl 0C0754 


U2 19 


9 


04A 


9 


049 


00068 


01 


00075A 


92 


FO 


9 


000 






. 00068 


01 


00075E 


02 


02 


3 


Oil 


A 


IFl 


00C68 


Cl 0C0764 


02 02 


3 


015 


A 


Itl 


00068 


01 


00076A 


58 


10 


3 


010 






00068 


01 


000772 


50 


10 


3 


018 






00066 


Cl 000776 


02 02 


A 


IFl 


3 


019 


00068 


Ci 


00077C 


58 


10 


3 


014 






00068 


01 


000784 


50 


10 


3 


018 






00066 


01 0007S8 


02 02 


A 


Ibl 


3 


019 


00068 


01 


00078E 


48 


10 


A 


IFC 






00068 


01 


000792 


06 


10 










C0C6B 


Cl 000794 


40 iC 


A 


1F6 






00066 


01 


000796 


56 


00 


3 


19C 






00C68 


01 


00079C 


50 


00 


A 


IDS 






00C6O 


01 OC07AO 


96 20 


A 


IJD 






00066 


01 


0007A4 


92 


01 


A 


IFO 






00068 


01 


O0O7A8 


41 


10 


A 


1C8 






0CC6& 


Cl 000764 


4i 00 


3 


492 






00068 


01 


0007BC 


47 


10 


3 


492 






00068 


01 


0007CO 


OA 


07 










00066 


01 0007C2 


02 02 


A 


Itl 


3 


Oil 


00068 


01 


0007C8 


02 


02 


A 


IFl 


3 


015 


00068 


01 


: •37CE 


58 


90 


A 


lEO 






00069 


01 0C07D2 


07 66 


3 


010 


3 


CIC 


00069 


01 


000708 


41 


00 


A 


1C8 






00069 


01 


00070C 


50 


00 


3 


010 






000o9 


01 0007t0 


92 OA 


3 


014 






00069 


01 


0007E4 


41 


10 


A 


318 






00069 


01 


00C7E8 


41 


00 


3 


010 






00069 


Cl 0C07tC 


OA 0^ 










00070 


01 


0007EE 


OA 


Ot 










00073 


01 


0007F0 


F2 


F5 


3 


178 


A 


010 


00073 


01 0007F6 


FC FO 


3 


l78 


A 


2u3 


00073 


01 


0007FC 


D7 


06 


J 


168 


3 


168 


00073 


01 


000802 


F2 


00 


3 


160 


3 


187 
















HRUttOURt DIVISIDN 


WAP 




























LINi: 


/PuS AUUR 


INSTRUCTION 


LINb/POS AUOR 




INSTRUCTION 


LINE/PUS ADDR 




INSTRUCTION 


00C7J 


Cl CC08C8 


Fl 5E 


3 


168 


3 


178 


0C073 


01 


00060E 


94 


OF 


3 


168 






00073 


01 


000812 


Dl 


00 


3 


16E 


3 


187 


00073 


01 0C0818 


FO 61 


3 


168 


A 


204 


00073 


01 


00081E 


F3 


54 


3 


020 


3 


168 


00073 


01 


000824 


03 


00 


3 


024 


3 


02 5 


00073 


Cl CCC82A 


U2 04 


A 


018 


3 


02 C 


00073 


01 


000630 


96 


FO 


A 


OIC 






00074 


01 


000834 


F2 


F5 


3 


168 


A 


010 


00074 


Cl 00083A 


FC Fl 


3 


168 


A 


2D6 


00074 


01 


000840 


F3 


6F 


A 


023 


3 


168 


00074 


01 


000846 


96 


FO 


A 


029 






00075 


Cl 000 84A 


F2 24 


3 


010 


A 


cia 


00075 


01 


000850 


02 


06 


3 


038 


A 


lAC 


00075 


01 


000856 


DE 


06 


3 


038 


3 


010 


CCC75 


Cl 0CC85C 


U2 05 


A 


C76 


3 


039 


00076 


01 


000862 


F2 


35 


3 


010 


A 


010 


00076 


01 


000868 


02 


08 


3 


038 


A 


183 


0CC76 


Cl 0C086t 


Ot 08 


3 


038 


3 


010 


00076 


01 


000874 


02 


06 


A 


07F 


3 


03A 


00077 


01 


00087A 


F2 


36 


3 


010 


A 


023 


00C77 


Cl QCC880 


02 08 


3 


038 


A 


1B3 


00077 


01 


000886 


DE 


08 


3 


038 


3 


010 


00077 


01 


00088C 


02 


07 


A 


089 


3 


039 


00076 


Cl 000892 


F2 F7 


3 


168 


A 


000 


00078 


01 


000898 


F2 


F4 


3 


000 


A 


018 


00078 


01 


00089E 


FA 


FF 


3 


168 


3 


000 


00C7B 


Cl 000bA4 


F3 7F 


A 


000 


3 


168 


00078 


01 


0008AA 


96 


FO 


A 


007 






00079 


01 


000 8AE 


F2 


F7 


3 


168 


A 


008 


00079 


Cl 00C8B4 


F2 F5 


3 


000 


A 


010 


00079 


01 


0008BA 


FA 


FF 


3 


168 


3 


000 


00079 


01 


0008C0 


F3 


7F 


A 


008 


3 


168 


00C79 


Cl 000&C6 


"96 FO 


A 


OOF 






00080 


01 


0008CA 


F2 


F7 


3 


168 


A 


010 


00080 


01 


000800 


F2 


F6 


3 


000 


A 


023 


OOOBO 


01 000806 


FA FF 


3 


168 


3 


000 


00080 


01 


00080C 


F3 


7F 


A 


010 


3 


168 


00080 


01 


0008E2 


96 


FO 


A 


017 






oocai 


01 000fcE6 


02 63 


9 


000 


A 


048 


00081 


01 


0008EC 


92 


40 


9 


000 






00081 


01 


0008FO 


02 


02 


3 


Oil 


A 


IFl 


OOCSi 


01 0C0faF6 


02 02 


3 


015 


A 


lEl 


00081 


01 


0008FC 


58 


10 


3 


010 






00081 


01 


000904 


50 


10 


3 


018 






oooai 


01 Q00908 


02 02 


A 


in 


3 


C19 


00081 


01 


00090E 


58 


10 


3 


014 






00081 


01 


000916 


50 


10 


3 


018 






00081 


01 0C091A 


02 02 


A 


Itl 


3 


019 


00081 


01 


000920 


48 


10 


A 


IFC 






00081 


01 


000924 


06 


10 










00081 


Cl CC0S26 


40 10 


A 


1F6 






00081 


01 


00092A 


58 


00 


3 


lAO 






00081 


01 


00092E 


50 


00 


A 


108 






00C81 


Cl 0C0932 


96 20 


A 


100 






00081 


01 


000936 


92 


01 


A 


IFO 






00081 


01 


00093A 


41 


10 


A 


108 






C0C81 


01 0CC946 


41 00 


3 


624 






00081 


01 


00094t 


47 


10 


3 


624 






00081 


01 


000952 


OA 


07 










00081 


01 000954 


02 02 


A 


lEl 


3 


Oil 


0C081 


01 


00095A 


02 


02 


A 


IFl 


3 


015 


00081 


01 


000960 


58 


90 


A 


lEO 






ccooo 

L 


OC 0CC964 


47 FO 


3 


638 


- 


:= 








= 


= 


= 


== 








= 


== ■ 






































Figure 23. SYSLST Output for COBOL Sample Problems (Part 3 of 5) 
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LINE/PCS tR CliUt CLAUSE 

21- i IJS06iI M ALibNMENT 

33- 1 iJSOSJI M ALIGNMENT 

41- 1 USOSJJ w ALIGNMENT 

44- 1 lJS0b31 M ALIGNMENT 

47- 1 IJSC53I M ALIGNMENT 



DlAuMUiTICS 

MESSAGE 
TO ALIGN BLOCKED RECORuS ADD 4 bYTES TO THE 01 CUJslTAINING DATANAME SALARY-RECORD. 

FUR PROPER ALIGNMENT, A 6 BYTE LUNG FILLER ENTRY IS INSERTED PRECEDING SALARIES. 

FUR PRUPtR ALIGNMENT, A 4 BYTE LONG FILLER ENTRY IS INSERTED PRECEDING MESG. 

FOR PROPER ALIGNMENT, A 6 BYTE LONG FILLER ENTRY IS INSERTED PRECEDING DSPY. 

FOR PROPER ALIGNMENT, A 7 BYTE LONG FILLER ENTRY IS INSERTED PRECEDING HEADING. 



DIAGNOSTICS 



b LEVEL N DIAGNOSTICS 



// EXEC LNKEDT 



JOB COfaCL 



01/01/6tl DISK LINKAGE EDITOR DIAGNOSTIC OF INPUT 



ACTION TAKEN MAP 
LIST INCLUDE iHDC3300 
LIST AUTOLINK iJOFAPIZ 
LIST ENTRY 



01/01/68 PHASE XFK-AO LOCQRE HICORE DSK-AO 
PHASE*** 0025C0 C02C0O OOZBbB ID 2 1 



ESD TYPE LABEL 



LOADED REL-FR 



CSECT IHD0330P 002000 002000 

♦ ENTRY IHD03301 002054 
ENTRY IHU03302 002000 

CSECT C360SAMP 0020E8 0020E8 

CSECT IJDFAPIZ 002A50 O02A50 

* ENTRY IJOFAZU 002A50 



// ASSGN SYiC04,X'(jOE' 
// EXEC 



Figure 23. SYSLST Output for COBOL Sample Problems (Part 4 of 5) 
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WttKLY 


HONTHLY ANNUAL 




ilb.JB 


500.00 6000.00 




117.69 


510.00 6120.00 




120.00 


520.00 6240.00 




122.30 


530.00 6360.00 




124.61 


540.00 6480.00 




126. y2 


550.00 60OO.OO 




129.23 


560.00 6720.00 




131. S3 


570.00 6840.00 




133. b'. 


580.00 6960.00 




136. li) 


590.00 7080.00 




138.46 


600.00 7200.00 




140.76 


610.00 7320.00 




143.07 


620.00 7440.00 




14b. 3B 


o30.00 7560.00 




147.69 


640.00 7680.00 




150.00 


650.00 7800.00 




lb2.30 


660.00 7920.00 




154.61 


670.00 8040.00 




156.92 


680.00 8160.00 




159.23 


690.00 8280.00 




161.53 


700.00 8400.00 




163. is4 


710.00 8520.00 




166.15 


720.00 8640.00 




166.46 


730.00 8760.00 




17U.76 


740.00 8880.00 




173.07 


750.00 9000.00 




175. 3B 


760.00 9120.00 




177.69 


770.00 9240.00 




180.00 


780.00 9360.00 




1U2.30 


790.00 9480.00 




184.61 


800.00 9600.00 




186.92 


810.00 9720.00 




189.23 


820.00 9840.00 




191.53 


830.00 9960.00 




193.84 


840.00 10080.00 




196.15 


850.00 10200.00 




198.46 


860.00 10320.00 




200.76 


870.00 10440.00 




203.07 


880.00 10560.00 




205.38 


890.00 10680.00 




207.69 


900.00 10800.00 




210.00 


910.00 10920. OC 




212.30 


920.00 11040.00 




214.61 


930.00 11160.00 




216.92 


940.00 11280.00 




219.23 


930-00 11400.00 




221.53 


960.00 11520.00 




223.84 


970.00 11640.00 




226.15 


980.00 11760.00 




228.46 


990.00 11880.00 




230.76 


1000.00 12000.00 


1 


TABLE VALUES 


ARE CURRtCT 


tijj coeuL 


======================: 


-^===========^======^^=======^^===^^ 





Figure 23. SYSLST Output for COBOL Sample Problems (Part 5 of 5) 
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RPG 

Progrcun Name is Z.RGl. The RPG sample problem produces an accounts 
receivable register. Both the RPG source deck and data deck are 
retrieved from the maintenance volume under Retrieving the Sample 
Problems . To execute the RPG sample problem the following job control 
cards are needed: 



// JOB RGP SAMPLE 
// OPTION LINK,DUb4P 
// EXEC RPG 

RPG SOURCE DECK (45 cards) 
/* 

// EKEC LNKEDT 
// EXEC 

RPG DATA (13 cards) 
/♦ 
/€ 

SYSLOG output is shown in Figure 17. 

The following list summarizes the SYSLST output shown in Figure 24 

• Job control cards 

• Source program listing 

• Symbol tables 

• Memory map 

• Linkage editor storage map 

• Accounts receivable register generated by program 
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// tAtt kPb 









JZ 


.i iUjAY 








Jt 


30Uil'«\/Nu 








:>y 


4JUl,U,'5li'4b 








44 


4'3&il Alt 








46 


4tl'J<, 1 fY 








?4 


i,,./ l.ilVAMI 


vAMi 


AL.U 


lol Al 


ll.TAL 


r: 


yiAhl 


AUU 


GKCrul 


oKPTUi 


fV 



Ui CBO 1 46 4tl'J<.irY $460 

CI CSO I ?4 i,,./ l.ilVAMI $461) 

01 CIO C Oi Ii.kAMI AL.U lOlAl ll.TAL ( ■ $460 

$461) 
$460 
$460 

■ ttui, LONTih' $460 
•tctlvAoLt XL" $460 
'u 1 S I t K' $460 

$460 

$460 

'CUSIUMtK' $460 

■Lul.AliilN INwiJU.1' $4f-C; 

•INVUlt.t i.«ll l.MVOlCt' $'*60 

$4t0 

$460 

•NUMBth li.olOrttK • $460 

'NAMt • $'1 ,[! 

■ ilAlL (.ilV NUMOtK' $460 



019 


Oi 


C60 


11 


o^t 


01 


0/0 


u 


O^i 


1 


60 





0^^ 


01 


O'yu 





<iti 


01 


iUO 


u 


0/4 


C; 


no 


b 


0/ = 


ul 


IzO 


U 


o^t 


Ll 


i iO 





0<!Y 


01 


140 





O^ii 


01 


lt>0 


b 


0/<7 


ul 


loo 


Ij 


CJC 


0/ 


010 


u 


031 


0/ 


02O 


u 


OJ^ 


c/ 


C30 





OJJ 


0/ 


040 





C34 


0>i 


ObO 


tj 


035 


02 


060 





C3o 


C2 


070 


u 


037 


02 


oao 


u 


C3fc 


02 


090 


u 


C3i 


0/ 


100 





C4C 


0^ 


110 





041 


02 


120 


1, 


l42 


02 


130 


u 


043 


02 


140 





044 


QL 


15>0 


u 



jIAI t , 
I lY , 

rtow r h I 
iMV , 

lNv«("I 



lo9 
Hi 



Figure 2U. SYSLST Output for RPG Sample Problems (Part 1 of 3) 
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Al/UKfciS Rl 
COOOll LlF 

ccccas hc 
ooooac H7 

FltLD NAMtS 



AUuKtSS Rl 

000C14 IP 
OOOCbfc Ml 
OOOCoo H8 



AuuKtSS Rl 

000015 LR 
OtOOoT M2 
OOUOBE Hcj 



AUURtSb Kl 



OOOOlo 00 

oaoo8a H3 



00001? Ul 
OOOOb^ M4 



00007A LO 
OUOObA H5 



AuuKfSS kl 



00007b LI 
OOOObB H6 



ALiORtiS fItLU 



LiTtRALS 
AOOfttiS LiTtRAL 



AUDRfcSS LITERAL 



ACCOUNTS 



COOlbt CUblUMtR 
OOCICJ NUMbER 



OCC^lb ** 



CuSTorttk 
ArtLiuNT 



COOl&B 
000196 
OOotOb NAME 
OOO^UC 



ECtlVAbLE RE 
LuCATiOrt iWVU'f.fc 



lIMPLf/ULIPUl liNTtKCl-l^T 
lAbLt ( ini'ul AtiU UUlfUU 
OEltR«jNt RtCoRL. IrhL 
L.AIA bPtClEU.ATIuN 
CET input KECIjKL 
LEiAiL CALCuLAI IONS 
luTAL CALLOLmIIUn'j 
l;EIAlL Llt«ES 

Total lines 

iNFiiI/uUTPoI REwor^r biuC 
LbcATluN uf DIE TAbLt fui 

inejT/oliIPui l^rLK^Al,t kc 

ttuRr AREA PLjINTEr 

uvtRfLOh arpAbi 

(.ONiRUL lcVlL 
lAbLtliliiEMcLE 4J 
TEbi iUt)L (dhJ) 
ijVttFLLti LINES 
LlNCAbl pKLi-KAM 



PRIjl hAW t INciE 



Ol CuHP ILAI.iL/N' 



ALlJRESj LITERAL 

00ulb3 I i T E R 

OOOIAL INVUiCE UATt INVOICE 

OOOluF MAIL Clnr NUMdEi- 



// tXEC LNKEliT 



Figure 24. SYSLST Output for RPG Sample Problems (Part 2 of 3) 
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JOB RPt 




DISK LINKAlit EDITOK OIAbNUSTIC of- INPUT 




ACTION TAKtN 


MAP 






LIST 


INCLUDE 


IJCFCIZO 


t46001I9 


LIST 


INCLUOt 


IJDFYPZZ 


$4600120 


LIST tNTRY 









01/01/68 PHASE XFR-AU LUCORE HICORE OSK-AO 
PHASt*** 003518 C02000 0038EB 19 4 1 



ESO TYPE 


LABEL 


LOADED 


RtL-FR 


CSECT 


t460 


002000 


002000 


CSECT 


IJCFCIZO 


0037D8 


003708 


* ENTRY 


IJCFZIZO 


003708 




CSECT 


IJDFYPZZ 


003870 


003870 


* ENTRY 


IJDFYZZZ 


003870 





ACCOUNTS KtCEIVAbLE REGISTER 



CUSTOMER 




LOCATION 


INVOICE 


INVOICE 


DATE 


INVOICE 


NUMBER 


CUSTOMER NAME 


STATE 


CITY 


NUMBER 


NO 


DAY 


AMOUNT 


10712 


AMALGAMATED CORP 


33 


61 


11603 


11 


10 


( 389.25 
► 389.25* 


11315 


BROliN WHOLESALE 


30 


231 


12324 


12 


28 S 


( 802.08 


11315 


6R0MN WHOLESALE 


30 


231 


99588 


12 


14 


► 261.17 

I 1,063.25* 


11897 


FARM IMPLEMENTS 


47 


77 


10901 


10 


18 


( 27.63 

I 27.63* 


18530 


BLACK OIL 


16 


67 


11509 


11 


8 ] 


i 592.95 


18530 


BLACK OIL 


16 


67 


12292 


12 


23 


► 950.97 
( 1,543.92* 


20716 


LEATHER BELT CO 


36 


471 


11511 


11 


8 ) 


( 335.63 


20716 


LEATHER BELT CO 


36 


471 


12263 


12 


17 


► 121.75 
( 457.38* 


29017 


GfcNERAL MFG CO 


6 


63 


11615 


11 


14 


( 440.12 


29C17 


GENERAL MFG CO 


6 


63 


11676 


11 


23 i 


1 722.22 
1,162.34* 


29054 


A-B-C OIST CO 


25 


39 


9689 


9 


11 i 


( 645.40 


29054 


A-B-C DIST CO 


25 


39 


11605 


11 


11 i 


( 271.69 


29054 


A-B-C OIST CO 


25 


39 


12234 


12 


14 i 


559.33 

1,476.42* 

( 6,120.19** 



Figure 2U. SYSLST Output for r^PG Sample Problems (Part 3 of 3) 
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PL/I 

Program Name is Z.PLl. The PL/I sample problem produces a table of 
mathematical functions: SQRT (x^+l) ,x2,x3,siN (x) ,COS(x) , SQRT(x) , and 
SQRT(x3). To execute the PL/I sample problem the follovdng job control 
cards are needed: 

// JOB PL/ I SAMPLE 

// OPTION LINK,N0DECK,SYM,LISTX,U8C,XREF 

// EXEC PL/I 

// PROCESS STMT 

PL/I source deck (38 cards) 
/♦ 

// EXEC LNKEDT 
// EXEC 

PL/I data (1 card) 
/* 
/€ 

SYSLOG output is shown in Figure 17. 

Ihe following list summarizes the SYSLST output shown in Figure 25. 

• Job control cards 

• Source program listing 

• Symbol table listing 

• Offset table listing 

• Object program listing 

• External symbol table 

• Block table (automatic storage requirements) 

• Linkage editor storage map 

• Table produced by object program 
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// JOB PL/ I SAMPLE 
// OPTION LINK, LI ST 
// ExeC PL/I 



,L ISTX,SYM,NO0ECK,4 8C 



DOS PL/I COMPILER 360N-PL-464 CL3-^ 



PL/ I 



OPTIONS LIST 
* PRlCESS stmt, OPT, XREF 
OPTIONS TAKEN ARd L 1ST ,L I STX, S YW, XP F F , F" R S , 480. , PPT , STMT. 



DOS PL/ 1 COMPILER 360N-PL-464 CL3-4 



/*PL/I SAMPLE PROGRAM FOR DOS/TOS */ 



FEW 



COS(X) 



/*PL/I SAMPLE PROGRAM FOR DCS/TCS */ 
PLl. .PROCEDURE OPTIONS (MAIN) ,. 

DECLARE ( X, BEGIN, END, STEP, A(5), B(2) ) 
FLOAT BINARY (21) ,. 
/* THIS PROGRAM COMPUTES A SHALL TABLE CONTAINING 

MATH. FUNCTIONS. 

INPUT DATA.. BEGIN - START PPINT OF TABLE , 
END - END POUiT TABLE , 

STEP - STEP WIDTH IN TABLE , 
THE ABSOLUTE VALUES OF BEGIN AND END MAY NOT BE GREATER 
THAN 999.999, THE ABSOLUTE VALUF CF STEP MAY NOT BE LESS 
THAN 0.001 . 

GET EDIT (BEGIN, END, STEP) (3 F(8,3)) ,. 

PUT EDIT ex SQRT(X**2 + 1) X**2 ' , • X**3 ■ , • S IN( X ) 
SQRT(X) SeRT(X**3)') ( X(4 ) , A(41 ) ,A ( 14) , A( 61 ) ! ,. 
IF ABS(BEGIN) GE 1000 OR ABS(STEP) LT .000999 

THEN GO TO INPUTERROR ,. 
DO X=BEGIN TO EN0+STEP/1E3 BY STEP ,. 
A(2)=X*X ,. 
A{1)=SQRT(A!2)+1) ,. 
A(3)=A(2)*X ,. 
A(4)=SIN(X) ,. 
A(5)=C0S(X) ,. 
PUT EDIT (X,A) 
IF X LT THEN 
B(1)=SQPT(X) 
B(2)=SQRT(A(3) ) ,. 
PUT EDIT (B,' •) (F{12,4), E(lt 
GOTO ENDLOOP ,. 

PUT EDIT I'--',' — '1 (X(7), A(15), A(I9)) 
END /* DO LOOP */ ,. 
KIP EDIT (• NORMAL END')(A),. 
RETURN /* NORMAL END */ ,. 
INPUTERROR.. 

PUT EDIT ('INPUT DATA ERROR') (A(12)) ,. 
STOP /* END ON WRONG INPUT */ ,. 
END /» TABLE */ ,. 



(F(8,3) ,F(13,3),2 E(16,5),2 F(13,6)),, 

GOTO NEG ,. 



,5),A( 13)) 



N 

ENOLOOP 

PUT 



$4640001 
$4640002 
$4640003 
$4640004 
$4640005 
$4640006 
$4640007 
$4640008 
$4640009 
$4640010 
$4640011 
$4640012 
$4640013 
$4640014 
$4640015 
$4640016 
$4640017 
$4640018 
$4640019 
$4640020 
$4640021 
$4640022 
$4640023 
$4640024 
$4640025 
$4640026 
$4640027 
$4640028 
$4640029 
$4640030 
$4640031 
$4640032 
$4640033 
$4640034 
$4640035 
$4640036 
$4640037 
$4640038 



DCS PL/I COMPILER 360N-PL-464 CL3-4 



TABLE 



LISTING 



BEGIN 

END 

STEP 



NEG 

ENOLOOP 

INPUTERROR 



0100 


00 





ENTRY 


ARITFM. 


DECIMAL 


FLOAT 


6 




EXT 


0101 


01 






ARITHM. 


BINARY 


FLOAT 


21 


AUTOM . 


INT 


0102 


01 






ARITHM. 


BINARY 


FLOAT 


21 


AUTOM. 


INT 


0103 


01 






ARI TPM. 


BINARY 


FLOAT 


21 


AJTOM . 


INT 


0104 


01 






ARITHM. 


BINARY 


FLOAT 


21 


AUTOM. 


INT 


0105 


01 




ARRAY 


ARITHM. 


BINARY 


FLOAT 


21 


AUTOM. 


INT 


0106 


01 




ARRAY 


ARITHM. 


BINARY 


FLOAT 


21 


AUTOM. 


INT 


0107 


01 






LABEL 


CONST. 








INT 


0108 


01 






LABEL 


CONST. 








INT 


0109 


01 






LABEL 


CONST. 








INT 



Figure 25. SYSLST Output for PL/I Sample Programs (Part 1 of U) 
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DOS PL/I COMPILER 360N-PL-46^ CL3-^ 



REFERENCF 



L I S T I ^' G 



BEGIN 

END 

ENDLCOP 

TNPUTERRCR 

NEG 

PL! 

STEP 



0105 01 

0106 01 
01C2 01 
0103 01 

0108 01 

0109 01 

0107 01 
0100 00 
OlCt 01 
niOl 01 



DOS PL/I COMPILER 360N-PL-^64 CLB-** 



TYPE 



INTERNAL NAME OFFSET 


0100 


OOIC 


0101 


one 


0102 


0120 


0103 


0124 


0104 


0123 


0105 


0130 


0106 


0148 



STATIC 

AUTOMATIC 

AUTOMATIC 

AUTOMATIC 

AUTOMATIC 

AUTOMATIC 

AUTOMATIC 



MODULE OFFSET 
00042C 



OFFSET TABLE 



DOS PL/I COMPILER 360N-PL-464 CL3-4 



LOC. 


OBJECT CODE 


000000 


05F0 


000002 




000002 


0700 


000004 


45E0 FOOA 


000008 


00000410 


000 00 C 


58C0 EOOO 


000010 


189F 


000012 


1831 


000014 


58F0 C05C 


000018 


05E0 


OOOOIA 


41E0 EOOE 


OOOOIE 


051F 


000020 


83 


000021 


000428 


000024 


00000150 


000028 


4110 C02C 


00002C 


58F0 C054 


000030 


05EF 


000032 


D203 0050 3000 


000038 


4700 0001 



OP. 


OPERANDS 


BALR 


F,0 


BEGIN 


OF BLOCK 01 


BCR 


0,0 


BAL 


E,X'OOA'(F) 


DC 


AIN'FFFFM 


L 


CX'OOOME) 


LR 


9,F 


LR 


3,1 


L 


F,N'0011' 


BALR 


E,0 


LA 


E.X'OOEME) 


BALR 


1,F 


DC 


X'83' 


DC 


AL3(N'010A') 


DC 


LENGTH OF OSA OF BLOCK 01 


LA 


1,X'02CMC1 


L 


F,N'0016" 


BALR 


E,F 


MVC 


X'050M04,D) ,X'000> (3) 


BC 


O.X'OOl • 



STATEMENT NUMBER 



DOS PL/I COMPILER 360N-PL-464 CL3-4 



SYMBOL 

PLl 

tJKSZCA 

IJKSZCM 

1 JKSZCT 

IJKSZLH 

IJKTFDM 

IJKTFKM 

IJKTSTM 

IJKVTCM 

IJKVECM 

IJKTSTR 

IJKVCTM 

IJKVCEM 

IJKSYSI 

IJKSVSA 

IJKQQSM 

IJKQSSD 

IJKQSSB 

IJKSZBA 



LENGTH ESID 



EXTERNAL SYMBOL TABLF 




Figure 25. SYSLST Output for PL/I Sample Programs (Part 2 of 4 ) 



Disk Operating System Sample Problems 135 • 





DOS PL/ I COMPILER 


360I*-PL-46A CL3-4 


PL/I 


02/26/69 


PAc; 


015 


RLOCK 


LENGTH OF DSA 


BLOCKTABLE 










01 


0150 














DCS PL/I COMPILER 360N-PL-464 CL3-4 
5W01I SUCCESSFUL COMPILATION 



// EXEC LNKEDT 



JCB 


PL/I 02/26/69 


ACTION TAKEN 


MAP 


LIST 


AUTCLINK 


IJKQQSM 


IIST 


AUTOLINK 


IJKQSSD 


LIST 


AUTCLINK 


IJKSYSA 


LIST 


AUTOLINK 


IJJCPIN 


LIST 


AUTOLINK 


IJKSYSI 


LIST 


AUTCLINK 


IJKSZBA 


LIST 


AUTOLINK 


IJKSZLM 


LIST 


AUTCLINK 


IJKTFDM 


LIST 


AUTCLINK 


IJKTFMM 


LIST 


AUTCLINK 


IJKTSTH 


LIST 


AUTCLINK 


IJKTXCF 


LIST 


AUTOLINK 


IJKVCEM 


LIST 


AUTOLINK 


IJKVCTM 


LIST 


AUTCLINK 


IJKVECM 


LIST 


AUTCLINK 


IJKVTCM 


LIST 


AUTOLINK 


IJKXTBM 


LIST 


ENTRY 





DISK LINKAGE EDITOR DIAGNOSTIC OF INPUT 



Figure 25. SYSLST Output for PL/I Sample Programs (Part 3 of U ) 
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02/26/69 PHASE XFR-AD LOCORE HICORE OSK-AD ESO TYPE 


LABEL 


LOADED 


REL-FR 


PHASE*** 002800 C02800 OCtTlV 28 06 2 CSECT 


PLl 


002800 


002800 


CSECT 


IJKSZLM 


003878 


003878 


CSECT 


IJKTFDM 


0038B8 


003888 


CSECT 


IJKTFMM 


003A98 


003A98 


ENTRY 


I JKTFHR 


003AAC 




CSECT 


IJKTSTM 


003B60 


003B60 


ENTRY 


IJKTSTR 


00306't 




ENTRY 


IJKTSTN 


003BDA 




CSECT 


IJKVTCM 


00^578 


004578 


CSECT 


IJKVECM 


0043E0 


0043E0 


CSECT 


IJKVCTM 


0042 58 


004258 


CSECT 


IJKVCEM 


003E80 


003E80 


CSECT 


IJKSYSI 


0030F0 


0030 FO 


CSECT 


IJKSYSA 


002F48 


002F43 


CSECT 


IJKQQSM 


002068 


002D68 


CSECT 


IJKQSSA 


002E18 


002E18 


ENTRY 


IJKQSSD 


002E40 




ENTRY 


IJKQSSB 


002E20 




* ENTRY 


IJKQSSC 


002E38 




CSECT 


IJJCPIN 


003018 


003018 


ENTRY 


IJJCP3 


003018 




CSECT 


IJKTXCF 


003E08 


003E08 


* ENTRY 


IJKTXCR 


003E30 




* ENTRY 


IJKTXCW 


003E42 




CSECT 


IJKSZCN 


003188 


003188 


ENTRY 


IJKSZCA 


0033B6 




ENTRY 


IJKSZCM 


0033BE 




ENTRY 


IJKSZCT 


0033DA 




ENTRY 


IJKSZBA 


0033BA 




ENTRY 


IJKZWSA 


003468 




ENTRY 


IJKSZCS 


00323E 




* ENTRY 


IJKSZCI 


00321A 




* ENTRY 


IJKSZCP 


003348 




* ENTRY 


IJKTCLM 


0033FC 




ENTRY 


IJKTOPM 


0033 EC 




* ENTRY 


IJKZWSI 


00358C 




CSECT 


IJKXTBM 


004698 


004693 


// EXEC 









X 


SQRT(X**2+1I 


X**2 


X**3 


SIN<X) 


COS(X) 


SQRTCXV 


SQRT(X**3) 


.000 




1.000 


.OOOOOE + 00 


.OOOOOE+00 


.000000 


1.000000 


.0000 


.OOOOOE+00 


.100 




1.005 


9.999 99E-03 


9.99999E-04 


.099833 


.995004 


.3162 


3.16228E-02 


.200 




1.020 


4.00000E-02 


7.99999E-03 


.198669 


.980067 


.4472 


8.94426E-02 


.300 




1.044 


8.99999E-02 


2.70000E-02 


.295520 


.955337 


.5477 


1.64317E-01 


.400 




1.077 


1.60000E-01 


6.39999E-02 


.389418 


.921061 


.6325 


2.52982E-01 


.500 




1.118 


2.500COE-01 


1.2 5000 E-01 


.479425 


.877583 


.7071 


3.53553E-01 


.600 




1.166 


3.60000E-01 
4.24996E+00 


2.160C0E-01 
1.56248E + 01 


.564642 
.598479 


.825336 
-.801139 


.7746 
1.5811 


4.64758E-01 


2.500 




2.693 


3.95283E+00 


2.600 




2.786 


6. 75995E + 00 


1.75758E+01 


.515509 


-.856884 


1.6124 


4.19235Et00 


2.700 




2.879 


7.28995E+00 


1.96828E+01 


.427389 


-.904068 


1.6432 


4.43653E+n0 


2.800 




2.973 


7.83994E+00 


2.19518E + 01 


.334998 


-.942219 


1.6733 


4.68527E+00 


2.900 




3.068 


8.40994E+00 


2.43887E+01 


.239260 


-.970956 


1.7029 


4.93849E+00 


3.000 




3.162 


8.99993E+00 


2.69997E + 01 


.141131 


-.989991 


1.7320 


5.19512E+0O 


NORMAL END 

















14.06.55t0URATI0M 00.02.19 



Figure 25. SYSLST Output for PL/I Sample Programs (Part U of 4) 
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Assembler 1 

Program Name is Z.ASl. The Assonbler 1 sample problem generates numbers 
from 2000 to 0001 in descending order and writes them on tape as 15 
character unblocked records (11 blanks followed by 4 zone digits, 
imsigned). To execute the Assembler 1 sample problem the following job 
control cards are needed: 

// JOB ASSEMBLE SAMPLE 1. 

// OPTION LINK,LIST,LOG,NOXREF 

// EXEC ASSEMBLY 

ASSEMBLER SOURCE DECK (23 cards) 
/♦ 

//EXEC LNKEDT 

// PAUSE ASSGN SYS 002 TO A 9 TRACK TAPE DRIVE 
// ASSGN SYS002,X*CUU« 
// MTC REW,SYS002 
// EXEC 
/% 

SYSLOG output is shown in Figure 17. 

The following list summarizes the SYSLST output shown in Figure 26: 

• Job control cards 

• External symbol dictionary 

• Source program listing 

• Relocation dictionary 

• Linkage editor storage map 
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// JLlB ASSiH&Lt SAMPLE 1 

// OPTICN LINK, LIST ,LOGfNGXl<£F 

// fcXtC ASStMbLY 















EXTERNAL SYMBOL DICTIONARY 






SYM6L1L TYPE ID AOOR LENGTH LU 


ID 














PC 01 COOOOO 000124 














lJFf/.lLl ta 02 














UffLlll SO 03 000128 0002bA 













--- 


iMPL 


DoS ASSEMBLER TEST 

















lOC 


OBJECT CODE ADORl ACDR2 


STMT 


SOURCE 


STATEMENT DOS 


CL3-0 








2 




PRINT 


NO GEN 


$4650002 




000000 




3 




START 





$4650003 




coccoo 


0580 


4 


TESTGEN 


BALR 


8>0 LOAD BASE REG 


$4650004 




C00002 




5 




USING 


*>8 


$4650005 




C0C002 


4100 80C6 00CC8 


6 




LA 


13,SAVEAREA 


$4650006 








7 




OPEN 


OUTFILt OPEN OUTPUT FILE 


$4650007 




C0C016 


4130 0700 00700 


15 




LA 


3,2000 GET STARTING RECORD VALUE 


$4650008 




OOOOIA 


4E30 80BE OOOCO 


16 


NEXT 


CVD 


3,DW0 CONVERT VALUE TO DEC. 


$4650009 




OOCOifc 


f337 20CB 80BE OOOOB COOCO 


17 




UNPK 


11<4.21,DND UNPACK IT 


$4650010 




C00024 


96F0 200E OOOOE 


18 




01 


14(2), X'FO' MASK SIGN BIT 


$4650011 








19 




PUT 


OUTFILE MRITE RECORD ON TAPE 


$4650012 




000034 


4630 8018 OOOIA 


24 




BCT 


3, NEXT TEST FOR TASK COMPLETE 


$4650013 








25 




CLOSE 


OUTFILE CLOSE TAPE FILE 


$4650014 








33 




EOJ 


RETURN TO CONTROL PROGRAM 


$4650015 








36 


OUTFILE 


OTFMT 


BLKSIZE=15,0EVADDR=SYS002,FILA8L=N0,I0AREA1=A1, 
I0AREA2=A2,I0R£G=(2),TYPEFLE=0UTPUT 


X$4650016 
$465 0017 








68 




MTHQD 


RECFORM=FIXUNB 


$4650018 




GGOOSt 


4040404C40404040 


292 


Al 


DC 


15C' • 


$4650019 




OOOOAD 


404040404040404C 


293 


A2 


DC 


15C' • 


$4650020 




OCOCCC 




294 


OWD 


DS 





$4650021 




OOOOCd 




295 


SAVEAREA 


OS 


90 


$4650022 




000000 




296 




END 


TESTGEN 


$4650023 




0001x0 


5U56C2O6O7C5D540 


297 






= C>»$BOPtN • 






OOOllti 


565BC2C3D306E2Cb 


298 






=C'$$BCLUSE' 






00C12C 


CC00tC48 


299 






=A(OUTFILE) 















RELOCATION DICTIONARY 





PUS. ID 


REL.IO 


FLAGS 


ADDRESS 






01 


01 


OC 


OOCOIC 






01 


01 


OC 


000040 






01 


01 


OC 


000050 






01 


02 


18 


000059 






01 


01 


C8 


000060 






01 


01 


08 


000081 






01 


01 


OC 


000088 






01 


01 


OC 


00008C 






01 


01 


OC 


000094 






01 


01 


OC 


000120 






NO STATEMENTS FLAGGED IN 


THIS ASSEMBLY 









Figure 26. SYSLST Output for Assembler (ASl) Sample Programs 
(Part 1 of 2) 
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JOb ASStHbt.E 




OXSK LINKAGE EDITOR DIAGNOSTIC OF INPUT 




ACTION TAKEN 


HAP 






LIST ENTRY 









PHASE XFR-AD LOCURE 


HJCORE OSK-AU 


ESD TYPE 


LABEL 


LOADED 


REL-FR 







PHASE*** 002000 002000 


0023E1 20 3 1 


CSECT 




002000 


002000 










CSECT 


IJFFZZZZ 


002X28 


002000 






















// PAUSE // ASSGN SVS002 TO A 9 
// ASSGN SYS002,X"18C» 
// MTC REW,SYS002 
// EXEC 


TRACK TAPE DRIVE 




























. 


EOJ ASSEMBLE 

















Figure 26. SYSLST Output for Assembler (ASl) Sample Programs 
(Part 2 of 2) 
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Tape Sort/Merge 

Program Name is Z.SMl. The tape sort/merge sample problem rearranges 
the records produced by the Assembler 1 program in ascending sequence 
and writes then on another tape, five records per block. To execute the 
Tape Sort/Merge sample problem the following job control cards are 
needed: 

// JOB SORT 

// PAUSE ASSGN SYS 002 TO SAME TAPE DRIVE AS IN PREVIOUS JOB 

// ASSGN SYS002,X' cuu' 

// PAUSE ASSGN SYSOOl , SYS003 , SYS004 , SYS005 TO DIFF TAPES 

// ASSGN SYS001,X' CUU* 

// ASSGN SYS003,X*cuu' 

// ASSGN SYS004,X* cuu' 

// ASSGN SYSOOS.X'cuu* 

// EXEC TSRT 

S/M CONTROL CARDS (6 cards) 
/♦ 
/6 

SYSLOG output is shown in Figure 17. 

The following list summarizes the SYSLST output shown in Figure 27. 

• Job control cards 

• Sort control cards 

• Sort parameters 

• Computed constants 
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// Jl-U .1.. 

// HAUSt 

// AjoLN 

// fA'JIjt 

// AoSLK 

// AojLI>. 

// AjiUU 

// A->50N JfiL 

// tXtC I SKI 



lu 



i I 
brsuiji.x' Id" 



lAfi UKl Wt 



'jU04///otiO 



USJ4, 



f X'lb6' 



111 bifr fAUb 



♦*IAPt ANU UliK UftKAIlNo 



*l,uNTKL,L LAK.. I li i 



HrtUbKAM** 



♦ »CL,r»IKln. 


LARU 


01 


bUKI 


HjKM«l=ol,FlLliJi- 


1 1^ iI.hJ 1 


**CLiNrRtjL 


CAKIJ 


0^ 


KtCUKu 


IYi'L-( .ttiMcln 4-; 




••CUNTRIjL 


LAS-.L 


CJ 


iNpr-iL 


VOL UMt -1 ti 1 f. bli I 


1 1 ;i,X) .iiH 


**l.ijNTKUI, 


CAKD 


O't 


OUTML 


dLKi>lZt - /5,cl liii 


t-Kh 


*»t,Ui'JTKuL 


cAkU 


Ob 


uPTiOil 


:'klM ,LAnti -(U.t;, 


ul 


»*ClJ«fKUL 


LAKLi 


(jo 


fcNU 






7TC6I 








**;.ukl 


I'AKArtl i 1 H 



INPUT 


i VOLUMt li 


INPUl 


OLLitK HjKM«( is 


IHl K 


tCUKU l*Ht ii 


Tht a 


i Ch LiJLAIluN IS 


MOKK 


LiKll^t-i AWAllABLL 


taLiKK 


LABtLS AKt 


VTOal 


**C.UMPCTtU CUNS 


MhS ^ 


I4710-:b 


ot^ = 


COlCa?!) 


N 


OCaOOGi 


u 


CCClfit, 


A = 


cooooo^ 



iHt UUii'Hl bLW.NSl^ 
OHkrt INPUT FlLt 
irlt KtLuKU Ll-Hblh 1 
THL 01 LI LLNoTti iS 
IHt uAl A rbkMAT Js 
UUTPUT I AuLLS ARt 



THE inPUT BLoLKSI/t 

CLoSh uuTkur ^ at 



THc 01 C.F 
INPUT lAoi 




Figure 27. oYSLST Output for Tape Sort/Merge Sample Problems 
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Tape- to -Printer Utility 

Program Name is Z.UTTPPRl. The Ta{je- to- Printer Utility sample problem 
lists the numbers handled by the assembler 1 and tape sort/merge sample 
problems, allowing the user to check for proper functioning of all three 
programs. To execute the tape to printer utility sample problem, the 
following jot control cards are needed: 

// JOB TPPR 

// PAUSE ASSGN SYS 004 TO SYSOOl OF PREVIOUS JOB 

// ASSGN SYS004,X*cuu' 

// PAUSE ASSGN SYS005 TO THE PRINTER 

// ASSGN SYS005,X' cuu' 

// UPSI 1000 

// EXEC TPPR 

T-P CONTROL CARDS (2 cards) 
/♦ 
/(. 

The user must reply IT IS EOi to ttie logged message by entering (S) 
(alternate code 5) from the IBM 10'j2 printer-keyboard, 

SYSLOG output is shown in Figure 17. 

A summary of the SYSLST output shown in Figure 28 follows: 

• Job control cards 

• Tape-to-printer control cards 

• Utility parameter statements (11 lines) 

• Numbers 0001-2000 (400 lines) 

• IS IT EOF 

• REPLY Y ( (§) is not printed) 

• END OF DATA 

• NUMBER OF INPUT BLOCKS PROCESSED 000400 

• NUMBER OF OUTPUT BLOCKS PROCESSED 000400 

• END OF JOB 
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// JOB TPPK 

// PAUSE // A5SGN SYS004 TO SYSCCl OF PRtVIUUS JOB 

// ASSGN SY3004.X<iU3' 

// PAUSt // ASSGN SYS005 TO THE PRINTER 

// ASSoN SYSOO^.X'OOE' 

// UP:>i 1000 

// EXEC TPPR 



// UTP TL,FE.A=l75t75),8=il2C),IR,0CtSl,PY 

// £N0 

TAPE TO PRINT UTILITY 

INPUT RECOKU LEN6TH 0075 

OUTPUT RECORO LENGTH 0120 

INPUT BLOCK LENGTH 00075 

OUTPUT SLOCK LENGTH 00120 

INPUT OPTION REMIND 

OUTPUT OPTION PRINT CHARACTER 

2 INPUT. 2 OUTPUT AREAS ASSIGNED 

RECORD FORMAT FIXED 

TYPE LIST 

STARTING RECORD NUMBER OOCOOOOl 



$4620001 
$4620002 







0001 


0002 


0003 


0004 


0005 






0006 


0007 


0008 


0009 


0010 






0011 


0012 


0013 


0014 


0015 






0016 


0017 


0018 


0019 


0020 






0021 


0022 


0023 


0024 


0025 






0026 


0027 


0028 


0029 


0030 


I 




0031 


0032 


0033 


0034 


0035 






0C36 


0037 


0038 


0039 


0040 






0041 


0042 


0043 


0044 


0045 






0046 


0047 


0048 


0049 


0050 






0051 


0052 


0053 


0054 


0055 






0056 


0057 


0058 


0059 


0060 






0061 


0062 


0063 


0064 


0065 






0066 


0067 


0068 


0069 


0070 






0071 


0072 


0073 


0074 


0075 






0076 


0077 


0078 


0079 


0080 






0C81 


0082 


0083 


0084 


0085 






0086 


0087 


0088 


0089 


0090 






0091 


0092 


0093 


0094 


0095 






0096 


C097 


0098 


0099 


0100 






0101 


0102 


0103 


0104 


0105 






0106 


0107 


0108 


0109 


0110 






0111 


0112 


0113 


0114 


0115 






0116 


0117 


0118 


0119 


0120 






0121 


0122 


0123 


0124 


0125 






0126 


0127 


0128 


0129 


0130 






0131 


0132 


0133 


0134 


0135 






0136 


0137 


0138 


0139 


0140 






0141 


0142 


0143 


0144 


0145 






0146 


0147 


0148 


0149 


0150 






0151 


0152 


0153 


0154 


0155 






0156 


0157 


0158 


0159 


0160 






0161 


0162 


0163 


0164 


0165 






0166 


0167 


0168 


0169 


0170 






0171 


0172 


0173 


0174 


0175 






0176 


0177 


0178 


0179 


0180 






0181 


0182 


0183 


0184 


0185 






0186 


0187 


0188 


0189 


0190 





1911 


1912 


1913 


1914 


1915 


1916 


1917 


1918 


1919 


1920 


1921 


1922 


1923 


1924 


1925 


1926 


1927 


1928 


1929 


1930 


1931 


1932 


1933 


1934 


1935 


1936 


1937 


1938 


1939 


1940 


1941 


1942 


1943 


1944 


1945 


1946 


1947 


1948 


1949 


1950 


1951 


1952 


1953 


1954 


1955 


1956 


1957 


1958 


1959 


1960 



Figure 28. SYSLST Output for TP-PR Sample Problems (Part 1 of 2) 
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1961 


1962 


1963 


1964 


1966 


1967 


1963 


1969 


1971 


1972 


1973 


1974 


1976 


1977 


1978 


1979 


19ai 


196^ 


1983 


1984 


19b6 


1967 


1980 


1989 


1991 


1992 


1993 


1994 


199fc 


1997 


1998 


1999 


bOOiii IS IT tUF 








RtPLV Y 








fcND OF CATA 









1965 
1970 
197b 

1980 
1985 
1990 
1995 

200C 















NUMfafcR l/F INPUT BLOCKS PKUCtSSED 
MiMBkK OF OuTPOT BLOCKS PKuCbSSbO 

tND LF JU8 


C00400 
C00400 
























tCJ TPPR 





































Figure 28* SYS.LST Output for TP-PR Sample Problems (Part 2 of 2) 
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Assembler 2 

Program Name is Z.AS2. The Assembler 2 sample problem generates numbers 
from 2000 to 0002 in descending order and writes them on disk. To 
execute the Assembler 2 sample problem, the following job control cards 
are needed: 

Col. bH Col. 7? 



r 



// JOB ASSEN-BLE SAMPLE 2 

// OPTION LINK, LIST, LOG, NOXREF 

// EXEC ASSEMBLY 

ASSEMBLER SOURCE DECK (23 cards) 
/* 

// EXEC LNKEDT 

// PAUSE ASSGN SYS002 to SCRATCH PACK 
// ASSGN SYS002,X'cuu* 
// VOL SYS002,OUTFILE 

// DLAB "SAMPLE PROBLEM FILE OF 2000 RECORDS Ihhhhhh* , C 

Col. 16 

0001, 66060, 66080,' SAMPLE TEST 
// XTENT 1,000,000180000,000184002, 'hhhhhh' ,SYS002 

Note: Replace hhhhhh in the DLAB and XTENT cards with the volume serial 
number of the disk pack. 

// EXEC 
/g 

SYSLOG output is shown in Figure 17. 

The following list summarizes the SYSLST output shown in Figure 29 : 

• Job control cards 

• External symbol dictionary 

• Source program listing 

• Relocation dictionary 

• Linkage editor storage map 
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// JOb ASitKbLt SAMPLt 2 

// LPTlLiN LlNK.LlSTfUJG.NUXRtF 

// fc>fcC AbbeMbLY 



iYMtiLL TYPt lU ADiM LtiMoTH 

PC CI OOOCOC 00017C 
iJOFOZZZ SJ OJ COOlttC COC^Cl, 



EXrtRNAL SYMduL hctionaky 



LiLib AbitrtbLtK ItSI 



LLC LdJtCl CUUt 



CtiOOOU 

000000 CSBO 

000002 

O00CO<; 410L falifc 



ALiOKl A00K2 STMT bUU.^Ct: STATtribM 



0Ci2Q 



DOS CL3-0 



OOOOIo ^1130 0700 00/uO 

UOOOIA 4fci0 oil6 OOllo 

oOOOXt f-33 2 200U tJil6 cocoa OCliS 

000024 96FC 200t OOOOE 



000034 4630 tiOXb 



oOOOta 4L404C4C4C404C40 

OOCOFF 4C404C4C404C4040 

OOOiiil 

000120 

000000 

OOOibB 5E5bC2U6Ll?Cb054C 

000170 5ri3BC2CJlJj0ofc^Cb 

000170 000CC04b 



OOOIA 



2 




PKlrtT 


NObbN 


3 




START 





4 


TtsTbti^ 


BALK 


b>0 


5 




OSINO 


*tB 


6 




LA 


13,SAVbAKbA 


7 




uPtKl 


UUTFILE 


15 




LA 


3,2o00 


lb 


NtXT 


CVU 


J.JhO 


17 




UNPK 


ll(4.2)>Ut<0 


lb 




UI 


14(21, X'FO' 


ly 




PUT 


OOTFILb 


24 




BCT 


3, NtXT 


2b 




CLbSt 


UUTFiLt 


33 




buj 




3b 


UUTFlLt 


OTF50 


BLKSIZt=23,luAKtA 
lUHbO=(2) .RbCFUkM 


85 




SUMUOFU 


264 


Al 


DC 


2JC' • 


26s 


A2 


DC 


23C' • 


266 


owo 


OS 


D 


267 


SAVtARbA 


US 


SID 


26a 




bND 


IfcSTotN 


26<rf 






=C'»»bUPbN • 


270 






=C»$»bCLUSb' 


271 






=A(bOTFILe) 



LUAO THb BASE kbOlSIER. 



OPEN THE OUTPUT FILE. 

CET STARTING RECORD VALUE. 

CONVERT fHE VALUE Tu DECIMAL. 

UNPACK THE VALUE. 

MASK THE SIGN BIT. 

taRITE A RECORD UN DISK. 

TEST FUR TASK COMPLETE. 

CLOSE THE DISK FILE. 

RETURN TU THb CONTROL PROGRAM. 
1=A1,IJAKEA2=A2,TYPEFLE=UUTPUT, 
=HXUNB,DEVICE = 2311 



$4630102 
$4650103 
$4650104 
$4650105 
$4650106 
$4650107 
$4650108 
$4650109 
$4650110 
$4650111 
$4650112 
$4650113 
$4650114 
$4650115 
C$4650116 
$4650117 
$4650118 
$4650119 
$4650120 
$4650121 
$4650122 
$4650123 



Figure 29. SYSLST Output for Assembler (AS2) Sample Problems 
(Part 1 of 2) 
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RtLOCATIuN DICTIONARY 




POS.IU 


RkL.lU 


FLAGS 


AOURESS 






Oi 


01 


OC 


000010 






01 


01 


OC 


000040 






01 


01 


OC 


000050 






01 


02 


18 


000059 






01 


01 


08 


000071 






01 


01 


OC 


000074 






01 


01 


OC 


OOOOAO 






01 


01 


OC 


0000A8 






01 


01 


08 


OOOOBl 






01 


01 


08 


0000b9 






01 


01 


08 


OOOOCl 






01 


01 


08 


OO00C9 






01 


01 


08 


000001 






01 


01 


08 


000009 






01 


01 


08 


OOOOE 1 






01 


01 


OC 


000178 






hO STATEMENTS FLAGGED IN 


THiS ASSEMBLY 










___;~~— 


. . ■ 



// EXEC LNKEOT 



JOB ASSEMBLE 



ACTION TAKEN 
LIST ENTRY 



DISK LINKAGE EDITOR DIAGNOSTIC OF INPUT 



PHASE XFR-AO LOCORE HICORE OSK-AO 
PHASE*** 002000 002000 00238B 22 1 2 



ESD TYPE LABEL LOADED REL-FR 
CSECT "002000 002000 

CSECT IJGFOZZZ 002180 002000 



// PAUSE y/ ASSGN SYS002 TO SCRATCH PACK 

// ASSGN SYS002tX'291' 

// VOL SYS002.0UTFILE 

// DLAB 'SAMPLE PROBLEM FILE OF 2000 RECORDS 

0001t66080t66080t' SAMPLE TEST • 
// XTENT ltOOOt000180000.000184002<'llllll'>SVS002 
// EXEC 



EOJ ASSEMBLE 



Figure 29. SYSLST Output for Assembler 
(Part 2 of 2) 



(AS 2) Sample Problems 



148 IBM S/360 DOS Sys. Gen. and Maint. 



Disk Sort/Merge 

Program Name is Z.SM2. The disk sort/merge sample problem rearranges in 
ascending sequence the numbers generated by the Assembler 2 problem. To 
execute the disk sort/merge sample problem the following job control 
cards are needed: 

Col. 5H Col. 72 

I I 

// JOB DSORT 

// PAUSE ASSGN SYS002 AND SYSOOU to SCRATCH PACK 

// ASSGN SYS002,X'CUU' 

// ASSGN SYSOOU,X'cuu» 

// VOL SYS002,FILEA 

// DLAB 'SAMPLE PROBLEM FILE OF 2000 RECORDS Ihhhhhh', C 

Col. 16 

0001,66080,66080,' SAMPLE TEST * 
// XTENT 1,000,000180000, 00018U002, •hhhhhh',SYS002 
// VOL SYS002,FILEW 
// DLAB 'SAMPLE PROBLEM WORK AREA FOR SORT RUN Ihhhhhh ' , C 

Col. 16 

0001,66080,66080,' SAMPLE TEST ' , DA 
// XTENT 1,000,000184003, 000186005, •hhhhhh',SYS002 
// VOL SYS00U,FILEO 
// DLAB 'SORTED FILE OF 2000 RECORDS FOR UTILITIES Ihhhhhh', C 

Col. 16 

0001,66080,66080,' SAMPLE TEST ' 
// XTENT 1,000,000180000,000184002, 'hhhhhh' ,SYS00U 

Note: Replace hhhhhh in the DLAB and XTENT cards with the volume serial 
number of the disk pack. 

// EXEC DSORT 

S/M CONTROL CARDS (6 cards) 
/* 

SYSLOG output is shown in Figure 17. 

The following list summarizes the SYSLST output shown in Figure 3 0: 

• Job control cards 

• Sort control cards 

• Sort parameters 

• Computed constants 



Disk Operating System Sample Problems 1U9 



// JUB USUrtT 

// PAUSE // ASbGN SyS002 AND SYi004 TO SCRATCH PACK 

// ASSGM SVS002,X'291« 

// ASSON SYS004,X'^91" 

// VOL SVS002,FILEA 

// ULAB •SAMPLE PHUBLtM FILE OF 2000 RECORDS 

000ifb6080t660t)0>' SAMPLE TEST • 
// XTENT 1,000,000180000, 000184002, •lillll',SYS002 
// VOL SYSC02,FILm 
// ULAB 'SAMPLE PROBLEM MURK AREA FOR SORT RUN 

0001,66080,66080,' SAMPLE TEST ' ,0A 
// XTENT 1, COO, 000184003,000186005, ■mill' ,SYS002 
// VOL SYS004,FJLEa 
// OLAd 'SORTED FILE OF 2000 RECORDS FOR UTILITIES 

0001,66080,66080,' SAMPLE TEST • 
// XTENT 1,000, 000180000,000184002, '111111', SYS004 
// EXEC DSORT 



7D631 ** JOB OSDRT ** *** CONTROL CARD INFORMATION ♦** ** 01/01/68 ** 

*** CONTROL CARDS *** 

SORT FIELDS=(12,4,A),FORMAT=BI,SIZE=2000 $4500001 

RECORD TYPE=F,LEN(iTH={15,,15) $4500002 

INPFIL BLKSIZ£=<15,X»,INPUT=D $4500003 

OUTFIL BLKSIZE=75,0UTPUT=0 $4500004 

OPTION PRINT, LABEL=(S,SJ $4500005 

END $4500006 

SORT FIELD 01 LOCATION 0012 LENGTH 004 SEQUENCE A FORMAT BI FILES 1 SIZE 00002000 

RECORO TYPE FIXED LENGTH 1 0015 LENGTH 2 NONE LENGTH 3 0015 

INPUT BLOCKSIZE 00015 TYPE FIXED 

INPUT FILEA 

TYPE DISK 

LABELS STD 

OUTPUT BLOCKSIZE 00075 LABEL STD TYPE DISK 

CFTIUNS SPECIFIED 

OPTION 01. PRINT 

OPTION 02 STORAGE 00065536 

♦*♦ COMPUTED CONSTANTS ♦** 

7D571 MAXIMUM FILE SIZE 00002410 

7D58I NUMBER UF FlLEh TRACKS SPECIFIED 00023 

7D60I OUTPUT BLOCKS PER TRACK 26 

7D61I SORT/MERGE PROGRAM ORIGIN 08192 

7D65i 3615 MAXIMUM B3. 

7D65I 3615 MAXIMUM Bl. 



EUJ DSORT 



Figure 30. SYSLST Output for Disk Sort/Merge Sample Problems 
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Disk- to-Printer Utility 

Program Name is Z.UTDKPRl. The disk-to-printer utility sample problem 
lists the numbers handled by the Assembler 2 and disk sort/merge sample 
problems. To execute the disk-to-printer utility sample problem, the 
following job control cards are needed: 

Col. 5H Col. 72 

I I 

// JOB DKPR 

// PAUSE ASSGN SYSOOU TO SCRATCH PACK 

// ASSGN SYSOOU, X'cuu* 

// PAUSE ASSGN SYS005 TO THE PRINTER 

// ASSGN SYS005,X*cuu' 

// UPSI 0000 

// VOL SYSOOU, UIN 

// DLAB 'SORTED FILE OF 2000 RECORDS FOR UTILITIES Ihhhhhh* , C 

Col. 16 

0001,66080,66080,' SA^iPLE TEST ' 
// XTENT 1,000,000180000,000184002, 'hhhhhh", SYSOOU 

Note: Replace hhhhhh in the DLAB and XTENT cards with the volume serial 
number of the disk pack. 

// EXEC DKPR 

D-P CONTROL CARDS (2 cards) 
/* 

SYSLOG output is shown in Figure 17. 

The following list summarizes the SYSLST output shown in Figure 31 : 

• Job control cards 

• D is k-to- printer control cards 

• Utility parameter statements (10 lines) 

• Numbers 0001-2000 (UOO lines) 

• NUMBER OF INPUT BLOCKS PROCESSED OOOUOO 

• NUMBER OF OUTPUT BLOCKS PROCESSED OOOUOO 

• END OF JOB 



Disk Operating System Sanpie Problems 151 





// JUB DKPR 














// PAUifc // ASSGN SYS004 


TO SCRATCH PACK 












// ASiGN SyS004fX'291' 














// PAUst // Ass&.N sysoos 


lu THE PRINTER 












// ASSGN SYSOOS.X'OOt* 














// UPSl OQOO 














// VOL SYiC04,UlN 














// ULAb 'SURTcO FU£ LF ^O0Q RtCORDS FUR 


UTILITIES 


1111111', 


C 






000i>660ti0 


,66080,' SAMPLE 


TEST ' 










// XTtMT i, 000,000180000, 


000184002,' mill", SYS004 










// tXtC UKPR 


— - 













// OOP IL,FF,A=<75,75),B= 


(120), 00, SI, PY 






$4610001 






//' cNu 








»4610002 






tISK Tu PRIMT UTILITY 














INPUT KECORO LfcNGTH 0075 














OUTPUT RtCORO LfcNGTh 0i20 












INPUT BLOCK LtNGTH 00075 














OUTPUT BLOCK LENGTH 00120 














OUTPUT OPTION PRINT CHARACItR 












2 INPUT, 2 OUTPUT ARtAS ASSlGNtD 












RtCuRO FORMAT FJXtO 














TYPE LIST 














STARTING RECORO NUMBER 00000001 












INPUT DEVICE TYPE 2311 







. 









0001 


0C02 


0003 


0004 


0005 






0006 


0007 


0008 


0009 


0010 






coil 


0012 


0013 


0014 


0C15 






0016 


0017 


0018 


0019 


0020 






0021 


0022 


0023 


0024 


0025 






0026 


0027 


0028 


0029 


0030 






0031 


0032 


0033 


0034 


0035 






0036 


0037 


0038 


0039 


0040 






0041 


0042 


0043 


0044 


0045 






0046 


0047 


0048 


0049 


0050 






0051 


0052 


0053 


0054 


0055 






0056 


0C57 


0058 


0059 


0060 






0061 


0062 


0063 


0064 


0065 






0066 


0067 


0068 


0069 


0070 






0071 


C072 


0073 


0074 


0075 






00 76 


0077 


0078 


0079 


0080 






0081 


0082 


0083 


0084 


0085 






00U6 


0087 


0088 


0089 


0090 






0091 


0092 


0093 


0094 


0095 






C096 


0097 


0098 


0099 


0100 






0101 


0102 


0103 


0104 


0105 






0106 


0107 


0108 


0109 


0110 






0111 


0112 


0113 


0114 


0115 






0116 


0117 


0118 


0119 


0120 






0121 


0122 


0123 


0124 


0125 






0126 


0127 


0128 


0129 


0130 






0131 


0132 


0133 


0134 


0135 






0136 


0137 


0138 


0139 


0140 






0141 


0142 


0143 


0144 


0145 






0146 


0147 


0148 


0149 


0150 






0151 


0152 


0153 


0154 


0155 






0156 


0157 


0158 


0159 


0160 






0161 


0162 


0163 


0164 


0165 






0166 


0167 


0168 


0169 


0170 






0171 


0172 


0173 


0174 


0175 






0176 


0177 


0178 


0179 


0180 






0181 


0182 


0183 


0184 


0185 






1.186 


0187 


0188 


0189 


0190 






0191 


C192 


0193 


0194 


0195 






0196 


0197 


0198 


0199 


0200 






0201 


0202 


0203 


0204 


0205 






0206 


0207 


0208 


0209 


0210 






C211 


0212 


0213 


0214 


0215 






0216 


0217 


0218 


0219 


0220 






0221 


0222 


0223 


0224 


0225 






0226 


0227 


0228 


0229 


0230 






0231 


0232 


0233 


0234 


0235 






0236 


0237 


0238 


0239 


0240 






0241 


0242 


0243 


0244 


0245 






0246 


0247 


0248 


0249 


0250 






0251 


0252 


0253 


0254 


0255 






0256 


0257 


0258 


0259 


0260 






0261 


0262 


0263 


0264 


0265 






0266 


0267 


0268 


0269 


0270 





Figure 31. SYSLST Output for DK-PR Sample Problems (Part 1 of 2) 
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Ibbb 


la67 


1868 


1869 


1870 




lo71 


1B72 


1873 


1874 


1875 




lo7b 


ld77 


1878 


1079 


1880 




ibtil 


1882 


1883 


1084 


1885 




1<186 


1807 


1880 


1889 


1890 




1891 


1892 


1893 


1894 


1895 




1B96 


1897 


1898 


1899 


190u 






1902 


19C3 


1904 


1905 




1906 


19C7 


1908 


1909 


1910 




ISil 


191^ 


1913 


19 14 


1915 




ISlb 


1917 


1918 


1919 


1920 




19^1 


1922 


1923 


1924 


1925 




1926 


1927 


1928 


1929 


1930 




19J1 


1932 


1933 


1934 


1935 




19J6 


1937 


1930 


1939 


1940 




1941 


1942 


1943 


1944 


1945 




1'546 


1947 


1948 


1949 


1950 




1951 


19b2 


1953 


1954 


1955 




19SO 


19i.7 


1958 


1959 


1960 




l^ol 


1962 


1963 


1964 


1965 




1966 


1967 


1968 


19 69 


1970 




1971 


1972 


1973 


1974 


1975 




1976 


1977 


1978 


1979 


1980 




19U1 


1982 


1983 


1984 


1985 




1986 


1987 


1988 


1989 


1990 




1991 


1992 


1993 


1994 


1995 




1996 


1997 


1998 


1999 


2000 




ENti OF CATA 













NOMbfcK LF INPJT BLOCKS PKtjCtSStD 000400 
NoMBtK UF OUTPUT BLOCKS PRCCtSStU 000400 
tNO uF JU8 



Figure 31. SYSLST Output for DK-PR Sample Problems (Part 2 of 2) 
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Assembler 3 

Program Name is Z.AS3. The Assonbler 3 sample problem generates numbers 
from 100 to 001, in descending order, and writes them on a data cell. 
To execute the Assembler 3 sample problem the following job control 
cards are needed: 

Col. 54 Col. 72 

I I 

// JOB ASSEMBLE SAMPLE 3 

// OPTION LINK, LIST, LOG, NOXREF 

// EXEC ASSEMBLY 

ASSEMBLER SOURCE DECK (23 cards) 
/♦ 

// EXEC LNKEDT 

// PAUSE ASSGN SYSOOU TO DATA CELL 
// ASSGN SYSOOa,X'cuu* 
// VOL SYS00U,OUTFILE 

// DLAB 'SAMPLE PROBLEM FILE OF 100 RECORDS Ihhhhhh*, C 

Col. 16 

0001,66080,66080,* SAMPLE TEST * 
// XTENT 1,0,310002000,310001019, •hhhhhh',SYS004 

Note: Replace hhhhhh in the DLAB and XTENT cards with the volume serial 
number of the data cell. 

// PAUSE MOUNT CELL hhhhhh ON STATION 3 

// EXEC 

/g 

SYSLOG output is shown in Figure 17. 

The following list summarizes the SYSLST output shown in Figure 32: 

• Job control cards 

• External symbol dictionary 

• Source program listing 

• Relocation dictionary 

• Linkage editor storage map 
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// JUB ASS£MBLt SAMPLE 3 

// £iPTlCN t.lNKil.ISTtLO(>>NUXi<£F 

// tXtC ASSEMBLY 



EXTERNAL SYMBOL DICTIONARY 



SYMBOL TYPE ID AOilR LENbTH LD ID 



UGFO^ZZ 
iJGFOZZZ 



PC CI OOOOOC 0OC17C 
tR 02 

SO C3 OCOIeC C0020C 



DOS ASSEMBLER TEST 



LOC OBJECT CODE AOOkl AU0R2 STMT SOURCE STATEMENT 



000000 

000000 0580 

000002 

U000C2 41D0 eilE 00120 

000016 4130 0064 00064 

OOOOIA 4E30 8116 00118 

OOOOIE F3J7 200B 8116 OOOOB 00118 
000024 96F0 200E OOOOE 



DOS CL3-0 



000034 4630 8018 



0O00E8 4C4040404040404C 

OOOOFF 4040404040404040 

000118 

000120 

000000 

000166 5BSBC206D7Ci>D540 

000170 5B3BC2C3D306E2C3 

000178 CC00C048 



OOOIA 



2 




PRINT 


NUGEN 


3 




START 





4 


TESTGEN 


BALR 


8,0 


5 




USING 


*i8 


6 




LA 


13, SAVEAREA 


7 




OPEN 


OUTFILE 


15 




LA 


3,100 


16 


NEXT 


CVD 


3, DMD 


17 




UNPK 


11(4, 21, DMD 


18 




UI 


14(2), X'FO" 


19 




PUT 


OUTFILE 


24 




BCT 


3, NEXT 


25 




CLOSE 


OUTFILE 


33 




EOJ 




36 


OUTFILE 


OTFSD 


BLKSIZE=23, 
I0REG=(2),R 


85 




SDMOOFO 


264 


AI 


DC 


23C' ■ 


265 


A2 


DC 


23C' ■ 


266 


DmD 


US 


D 


267 


SAVEAREA 


DS 


90 


268 




END 


TESTGEN 


269 






=C'$tBOPEN 


270 






=C'»*BCLOSE 


271 






= A(CUTFiLH 



LUAO THE BASE REGISTER. 



OPEN Trit OUTPUT FILE. 

GET STARTING RECORD VALUE. 

CONVERT THE VALUE Tu DECIMAL. 

UNPACK THE VALUE. 

MASK THE SIGN BIT. 

MRITE A RECORD ON THE DATA CELL. 

TEST FOR TASK COMPLETE. 

CLOSE THE DATA CELL FILE. 

RETURN TO THE CONTROL PROGRAM. 
=A1, IOAREA2=A2,TYPEFLE=OUTPUT, 
=IXUNB,DEVICE=2321,VERIFY=YES 



$4650202 
$4650203 
$4650204 
$4650205 
$4650206 
$46502 07 
$46502 08 
$4650209 
$4650210 
$4650211 
$4650212 
$4650213 
$4650214 
$4650215 
C$4650216 
$4650217 
$4650218 
$4650219 
$4650220 
$4650221 
$4650222 
$4650223 



RELOCATION DICTIONARY 



POS.IO KEL.ID FLAGS ADDRESS 

01 01 OC 000010 

01 01 or. 000040 

01 01 OC 000050 

01 02 18 000C59 

01 01 08 000071 

01 01 OC 000074 

01 01 OC OOOOAO 

01 01 OC 0000A8 

01 01 08 000081 

01 01 08 0000B9 

01 01 08 OOOOCl 

01 01 08 000CC9 

01 01 08 000001 

01 01 08 000009 

01 01 08 OOOOEl 

01 01 OC 000178 



NO STATEMENTS FLAGGED IN THIS ASSEMBLY 



Figiare 32. SYSLST Output for Assembler (AS3) Sample Problems 
(Part 1 of 2) 
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// bXEC LNKeOT 



JOB ASSEMbLE 



ACTION TAKEN 
LIST ENTRY 



DISK LINKAGE EDITOR DIAGNOSTIC OF INPUT 



PHASE Xi=R-AO LOCORE HICORE OSK-AD ESO TYPE LABEL LOADED REL-FR 
PHASE*** 002000 002000 00238B IE 5 2 CSECT 002000 002000 

CSECT IJGFOZZZ 002180 002000 



// PAUSE // ASSGN SYS004 TO DATA CELL 

// ASSGN SYS004>X'292' 

// VOL SYS004.UUTFILE 

// DLAB "SAMPLE PROBLEM FILE OF 100 RECORDS 

0001t66080t660e0f • SAMPLE TEST • 
// XTENT 1.0>310001000i310001019t'llllll'>SYS004 
// PAUSE MOUNT CELL 111111 ON STATION 3 
// EXEC 



EOJ ASSEMBLE 



Figure 32. SYSLST Output for Assembler (AS3) Sample Problems 
(Part 2 of 2) 
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Data Cell-to-Printer 

Program Name is Z.UTDCPRl. The data cell-to-printer sairple problem 
lists the niambers that the Assembler 3 sample problem wrote on the data 
cell. To execute the data cell-to-printer sample prooleia the following 
job control cards are needed: 

Col. 54 Col . 72 

I I 

// JOE DCPR 

// PAUSE ASSGN SYSOOU TO DATA CELL 

// ASSGN SYS004,X*cuu* 

// PAUSE ASSGN SYS 005 TO THE PRINTER 

// ASSGN SYS005,X* cuu* 

// UPSI 0000 

// VOL SYSOOU,UIN 

// DLAB 'SAMPLE PROBLEM FILE OF 100 RECORDS Ihhhhhh', C 

Col. 16 

0001,66080,66090,* SAMPLE TEST ' 
// XTENT 1,0,310001000,310001019, ' hhhhhh' ,SYS004 

Note: Replace hhhhhh in the DLAB and XTENT cards with the volume serial 
number of the data cell. 



// EXEC DCPR 

EC-P CONTROL CARDS (2 cards) 
/♦ 

SYS LOG output is shown in Figure 17. 

The following list summarizes the SYSLST output shown in Figure 33: 

• Job control cards 

• Data cell-to-printer control cards 

• Utility parameter statements (10 lines) 

• Number 0100-0001 (100 lines) 

• NUMBER OF INPUT BLOCKS PROCESSED 000100 

• NUMBER OF OUTPUT BLOCKS PROCESSED 000100 

• END OF JOB 
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JJ 


Juo DCPh 








// 


PAUSE // AiSGN syS004 Tu UATA i-ELL 








// 


AiSGN 5yS004.X'«;9i' 








// 


PAUSt // AiiGN SYSOOb 10 THE PRINTtk 








// 


AioGN SYSOti.X'OOE' 








// 


UP:>I CQOO 








// 


VOL SyS004tUIN 








// 


DLAB 'SAMPLE PROBLEM FILE OF 100 RECORDS 

0001, 66080, 66080t' SAMPLE TEST • 


1111111', 


C 




// 


XTENT 1,0,31C001000.3100C1019,< 11111 l',SYS004 








// 


tXEC i/CPR 









// UMP TL.fF,A=tlb,l&J,B=»i2G),Sl,PY t4630001 

// END $4630002 

LiATA CELL TO PRINT UTILITY 

INPUT RECORU LENGTH 0015 

OUTPUT RECORD LENGTH 0120 

INPUT BLOCK LENGTH 00015 

(iuTpUT BLOCK LENGTH 00120 

OUTPUT CPTJON PRINT CHARACTER 

2 INPUT, 2 OUTPUT AREAS ASSIGNED 

RECORD FORMAT FIXED 

TYPE LIST 

STAKIING RECuRD NUMBER OOOOUOOl 

INPUT DEVICE TYPE 2321 



OICO 
CC99 
0098 
0097 
0096 
0095 
0094 
0C93 
0G92 
CC91 
0090 
0089 
0088 
0C87 
CC86 
0085 
C084 
0083 
0082 
0081 
0080 
0079 
CC7B 
0077 
C076 
0075 
0074 
G073 
0072 
0071 
C070 
0069 
0068 
0067 
0066 
0065 
0064 
0063 
0062 
CCtl 



Figure 33. SYSLST Output for DC-PR Sample Problems (Part 1 of 2) 
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OOiS 
0C14 
0013 
001^ 
OOH 
0010 
0U09 
0008 
0007 
0006 
OC05 
0004 
COOi 
0002 
0001 
tNO OF DATA 



NOMbEK OF INPUT bLUCKS PROCt^StU 000100 
NUnbtk OF UUTPOT BLOCKS PKUCbSSEO 000100 
t.NO OF JOB 



Figure 33. SYSLST Output for DC-PR Sample Problems (Part 2 of 2) 



Disk Operating System Sample Problems 159 



Assembler 4 

Program Name is Z-ASU. The Assembler 4 sample problem generates numbers 
from 2000 to 0001 in descending order and writes them on tape as 15 
character unblocked records (11 blanks followed by U zoned digits, 
unsigned) . To execute the Assembler U sample problem the following job 
control cards are needed: 

// JOB ASSEMBLY SAWPLE U 

// OPTION LINK, LIST, LOG, NOXREF 

// EXEC ASSE^5BLY 

Assembler source deck (23 cards) 
/* 

// EXEC LNKEDT 

// PAUSE ASSGN SYS002 TO A 9 TRACK TAPE DRIVE 
// ASSGN SYS002,X'cuu« 
// MTC REW,SYS002 
// EXEC 
/6 

SYSIDG output is shown in Figure 17. 

The following list summarizes the SYSLST output shown in Figure 3U: 

• Job control cards 

• External symbol dictionary 

• Source program listing 

• Relocation dictionary 

• Linkage editor storage map 
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// JJ8 ASStMbLY SAMPLt 4 

// OPTIUN LINK. LIST, LUG, NGXKtF 

// EXEC ASSEMBLY 



EXTtKiMAL SYMbUL DICriUNARY 



SYMBOL TYPE ID ADOR LENGTH LU ID 



IJFFZZ^Z 
IJFFllil 



PC ol GoCOOO 0G012C 

ER 02 

SO 03 00013C OG0<iD2 



DOS ASSEMBLER TEST 



LOG OBJECT CODt 



ALORl ADDR2 STMT SOORCE STATEMENT 



DOS CL3-1 Ol/Ol/Cl 



OOCOGO 

000000 0580 

C0C002 

G0u0G2 41U0 bOCt 



PRINT NOG EN 
START 



jDG 



COoOlb 4130 G7D0 LC7DG 

OOOOIA 4t30 flGC6 CC0C8 

OOOOIE F3i7 20CB 80C6 OCGOB COCCfl 

ojo024 96F0 2uOE LGlOE 



000034 4630 8018 



0C009E 40404G4G40404040 

OOOOBO 40404G4040404040 

O0GGC8 

GUL.0D0 

OOCOOO 

000113 5B5BC206D7C5D540 

00012G 5B58C2C3D306E2C5 

00L128 0C000O4b 



UOCIA 



BALH 
USING 
LA 
OPEN 



8,0 



LOAD BASE REG 



36 OOTEILE 

67 

295 Al 

296 A2 

297 DWU 

298 SAVtAREA 
299 

300 
301 
302 



13,iAVEAREA 

UUTFILE OPEN OUTPOT FILE 

LA 3.20GC GET STARTING RECORD VALOE 

CVO 3.DW0 CONVERT VALUE TO DEC. 

UNPK 11(4,2I,DWD UNPACK IT 

01 14(2I.X'F0' MASK SIGN BIT 

PUT UUTFILE WRITE RECORD ON TAPE 

BCT 3. NEXT TEST FOR TASK COMPLETE 

CLOSE OUTFILE CLOSE TAPE FILE 

EOJ RETURN TO CONTROL PROGRAM 
DTFMT BLKSlZE=18,OtVAUDR=SYS002 .FILABL=NO. I0AREA1=A1, 

I0ARtA2=A2, I0REG=(2).TYP£FLE=0UTPUT 
MTMOD RtCFORM=FIXUNB 
DC 'l 8C ' ■ 

DC IBC « 





9D 

TFSTGEN 

= C' $»80PEN • 

= C" StBCLOSE' 

= A(OUrFlLEI 



»46504u2 
$4650403 
«4660404 
$46 50405 
$4650406 
$4650407 
$4650t08 
$4650409 
$4650410 
$4650411 
$4650412 
$4650413 
$4650414 
$4650415 
X$46 50416 
$4650417 
$4650418 
$4650419 
$46 50420 
$4650421 
$4650422 
$4650423 



POS.IU 


RfcL.ID 


FLAGS 


ADORES 


01 


01 


OC 


JOOOIO 


01 


01 


OC 


000040 


01 


01 


OC 


000050 


01 


02 


18 


0Cu059 


01 


01 


08 


0CC060 


01 


01 


08 


0CC081 


01 


01 


OC 


0COO88 


01 


01 


OC 


0CO08C 


01 


01 


OC 


C0CC94 


01 


01 


OC 


000128 



RELOCATIuN DICTIONARY 



NO STATEMENTS FLAGGED IN THIS ASSEMBLY 



// EXEC LNKEOT 



Figure 34. SYSLST Output for Assembler (ASU) Sample Problems 
(Part 1 of 2) 
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JOB ASSEMBLY 



ACTION TAKEN MAP 
LIST ENTRY 



OlSK LlNKAGt bOITUR DIAGNOSTIC UF INPUT 



01/01/01 PHASE XFR-AO LOCCiRE HICORE LJSK-AO ESU TYPE LABEL LQAUtD REL-FR 

PHASE*** 002800 CC/!800 002C01 26 06 2 CStCT ooibOO 0u28C0 

CSECT IJFEZZZZ CU2<S3C 002800 



// PAUSE ASSGN SYSG02 TO A S TRACK TAPE DRIVE 
// ASSGN SYS002.X'2e2' 
// MTC REW,SYS002 
// EXEC 



EQJ ASSEMBLY 



Figure 3U, SYSLST Output for Assembler (AS4) Sample Problems 
(Part 2 of 2) 
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Tape and Disk Sort/Merge — 2U00 Application 

Progrcup Name is Z.SM4. The Tape and Disk Sort/Merge sample problem 
rearranges in ascending sequence the records produced by the Assembler U 
program and virites them on another tape, five records per block. To 
execute the Tape and Disk Sort/Merge sample problem the following job 
control cards are needed: 

// JOB SORT 2400 

// PAUSE ASSGN SYS002 TO SAME DRIVE AS PREVIOUS JOB 

// PAUSE ASSGN SYSOOl ,SYS003 ,syS004 ,SYS005 TO DIFF TAPES 

// ASSGN SYS001,X*CUU* 

// ASSGN SYS002,X*cuu' 

// ASSGN SYS003,X* cuu* 

// ASSGN SYS004,,X»CUU» 

// ASSGN SYS005,X* CUU* 

// TLBL SORTOUT,, 64/001 

// TLBL SORTINl, ,64/001 

// TLBL SORTWKl, ,64/001 

// TLBL SORTWK2,,64/001 

// TLBL SORTWK3,,64/001 

// IBLTYP TAPE 

// EXEC SORT 

Sort/merge control cards (6 cards) 
/6 

SYSLOG output is shown in Figure 17. 

The following list summarizes the SYSLST output shown in Figure 35. 

• Job control cards 

• Sort control cards 

• Sort parameters 

• Computed constants 
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/ / i>mz AiSC.N SYbiu^ lo iA^•l. ukIVL ub PKcVU'US JUS 

// PioSr AiioN sySuGi. iVSOOi, SYSCu-i-.SYSOu.S In Ui i f TAPtS 

// ASSbN SYSCLi.X'2BO' 

// ASSGN SYS0o2,X',iBZ" 

// ASSGN SYS0ui,X'2fa7' 

// ASSGN SYSG04.X'284' 

// ASSGN SYS0&5,X'285' 

// ILBL SURTOUT. .64/001 

// TLBL SOkTINI. .64/001 

// TLBL SORTWKl. ,64/001 

// TLBL S0RTWK2. .64/001 

// TLBL SukTWK3. ,64/001 

// LoLTYP TAPt 

// bXtC SORT 

lOO^l iuK 1 f L;RMAT=til ,* Itl Jl=( i/.4,A) ,HUKK = :) J'rrtioLOl 

/JCJl KCLLK„' TYPt-t- ,cL.NoiH= Ifl l-.oi0v.02 

rOujl UPTIuN PKlNl =Ai_l. .Li»dirL = i U.O.Ul Stoii-Co-'i 

7;ycai iNPrIL VOLUMfc^l ,BLKSli t = lH t48:)wH,04 

700ul OUlFiL bLKSl/:t = 90 44830005 

ToOOI cNO 44830006 

70501 NMAX=C01144876 

70511 6= 000009^91 

70521 G= C00006041 

70011 PHASE fcND.NO OETECTfcD tkRORS 



Figure 35. SYSLST Output for Tape and Disk Sort/Merge Sample Problem 
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Tape- to- Printer Utility 

Program Name is Z.UTTPPR2. The Tape-to-Printer Utility sample problem 
lists the numbers handled by the Asseiribler 4 and tape and disk 
sort/merge (2U00 application) sample programs. To execute the tape to 
printer utility sample problem, the following job control cards are 
needed: 

// JOB TPPR 2400 TO PRINTER 

// PAUSE ASSGN SYSOOU TO SYSOOl OF PREVIOUS JOB 

// ASSGN SYSOOU, X'cuu* 

// PAUSE ASSGN SYS 00 5 TO THE PRINTER 

// ASSGN SYS005,X*cuu* 

// UP SI 1000 

// EXEC TPPR 

Tape-to- printer utility control cards (2 cards) 
/♦ 

The user must reply IT IS EOF to the logged message by entering (§) 
(alternate code 5) from the IBM 1052 printer-keyboard. 

SYSLOG output is shown in Figure 17. 

The following list summarizes the SYSLST output shown in Figure 36: 

• Job control cards 

• Tape-to-printer control cards 

• Utility parameter statements (11 lines) 

• Nimbers 0001-2 000 (UOO lines) 

• IS IT EOF 

• REPLY Y ( d) is not printed) 

• END OF DATA 

• NUMBER OF INPUT BLOCKS PROCESSED 0004 00 

• NUMBER OF OUTPUT BLOCKS PROCESSED 000400 

• END OF JOB 
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// 


JOB IPPR 24C0 TO PRINTEI* 


n 


PAtSE ASSG^f SVSOC* TO SVSOOl OF PRtVEOUS JOB 


II 


ASSGN SYS004,X'286' 


II 




II 




II 


UPSI 1000 


II 


EXEC TPPR 





// UTP TL,FF,A = (9C.90».B=(14'.),IR,OC,S1.PY 


«4630101 


// END 








W»630102 


TAPE TO PRINT UTILITY 










INPUT KECORO LENGTH 


0090 










OUTPUT RECORD LENGTH C 144 










INPUT BLOCK LENGTH 00C90 










OUTPUT BLOCK LENGTH 


00144 










INPUT OPTION REWIND 












OUTPUT OPTION PRINT 


CHARACTER 








2 INPUT, 2 OUTPUT AREAS ASSIGNED 








RECORD FORMAT FIXED 












TYPE LIST 












STARTING RECORD NUMBER CCCOCOOl 









0001 




0002 


0003 


0004 


0005 


0006 




0C07 


0008 


0009 


0010 


0011 




0012 


0013 


0014 


0015 


0016 




0017 


0018 


0019 


0020 


0021 




0022 


0023 


0024 


0025 


0026 




0027 


0028 


0029 


0030 


0031 




0032 


0033 


0034 


0035 


0036 




0037 


0038 


0039 


0040 


0041 




0042 


0043 


0044 


0045 


0046 




0047 


0048 


0049 


0050 


0051 




0052 


0053 


0054 


0055 


0056 




0057 


0058 


0059 


0060 


0061 




0062 


0063 


0064 


0065 


0066 




0067 


0068 


0069 


0070 


0071 




0072 


0073 


0074 


0075 


0076 




0077 


0078 


0079 


0080 


0081 




C082 


0083 


0084 


0085 


0086 




0087 


0088 


0089 


0090 


0091 




0C92 


0093 


0094 


0095 


0096 




0C97 


0098 


0099 


0100 


0101 




0102 


0103 


0104 


0105 


0106 




0107 


0108 


0109 


0110 


0111 




C112 


0113 


0114 


0115 


0116 




0117 


0118 


0119 


0120 


0121 




0122 


0123 


0124 


0125 


0126 




0127 


0128 


0129 


0130 


0131 




0132 


0133 


0134 


0135 


0136 




0137 


0138 


0139 


0140 


0141 




0142 


0143 


0144 


0145 


0146 




0147 


0148 


0149 


0150 


0151 




0152 


0153 


0154 


0155 


0156 




0157 


0158 


0159 


0160 


0161 




0162 


0163 


0164 


0165 


0166 




0167 


0168 


0169 


0170 


0171 




0172 


0173 


0174 


0175 


0176 




0177 


0178 


0179 


0180 


0181 




'C182 


0183 


0184 


0185 


0186 




0187 


0188 


0189 


0190 


0191 




0192 


0193 


0194 


0195 


0196 




0197 


0198 


0199 


0200 


0201 




0202 


0203 


0204 


0205 


0206 




0207 


0208 


0209 


0210 


0211 




0212 


0213 


0214 


0215 


0216 




0217 


0218 


0219 


0220 


0221 




0222 


0223 


0224 


0225 


0226 




0227 


0228 


0229 


0230 


0231 




0232 


0233 


0234 


0235 


0236 




0237 


0238 


0239 


240 


0241 




0242 


0243 


0244 


0245 


0246 




0247 


0248 


0249 


0250 


0251 




0252 


0253 


0254 


0255 


0256 




0257 


0258 


0259 


0260 


0261 




0262 


0263 


0264 


0265 


0266 




0267 


0268 


0269 


0270 


0271 




0272 


0273 


0274 


0275 


0276 




0277 


0278 


0279 


0280 


PAGE 1 













Figure 36. SYSLST Output for Tape-to-Pr inter Sample Problens 
(Part 1 of U) 
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0261 
0286 
0291 
0296 



0282 
C287 
0292 
0297 



0283 
0288 
0293 
0298 



0284 


0285 


0289 


C290 


0294 


0295 


0299 


0300 


JLUXi 


aic^ — . 



0536 
0541 
0546 
0551 
0556 



0537 

C542 
0547 
C552 
0557 



0538 
0543 
0548 
0553 
0558 



0539 
544 
0549 
0554 
0559 



540 
0545 
0550 
0555 
560 



0561 
0566 
0571 



0816 
0821 
0826 
0831 

0836 



0562 
0567 
0572 



C817 
0822 
0827 
0832 
C837 



0563 

0568 

0573 

_£L5i8_ 

UUl- r- 

0818 
0823 
0828 
0833 
0838 



564 
0569 
0574 



0819 
0824 
0829 
0834 
0839 



0565 
0570 
0575 

"UnlS 
0820 
0825 
0830 
0835 
0840 



0641 
0846 
0851 



1101 
1106 
1111 
1116 



0842 


0843 


0847 


0846 


0652 


0853 




1102 


1103 


1107 


1108 


1112 


U13 


1117 


1118 



0844 
0849 
0854 



1104 
1109 
1114 
1119 



0845 
0850 
0855 



1105 
1110 
1115 
1120 



Figure 36. SYSLST Output for Tape-to-Printer Sample Problems 
(Part 2 of U) 
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1121 


1122 


1123 


112* 


1125 




1126 


1127 


1128 


1129 


1130 




1131 
1 . ___l_Ui 


1132 
i-i-iZ 


1133 

liaa 


1134 

__ -Liaa— .__- 


1135 

■ UAi 





1371 
1376 
1381 
1386 
1391 
1396 



1372 
1377 
1382 
1387 
1392 
1397 



1373 
1378 
1383 
1388 
1393 
1398 



1374 
1379 
1384 
1389 
1394 
1399 



1375 
1380 
1385 
1390 
1395 
1400 



1401 
1406 
1411 



1656 
1661 
1666 
1671 
1676 



1402 
1407 
1412 



1657 
1662 
1667 
1672 
lo77 



1403 
1408 
1413 



1658 
1663 
1668 
1673 
1678 



1404 


1405 


1409 


1410 


1414 


1415 






1659 


■ tnrTJ 

16tO 


1664 


1665 


1669 


16, '0 


1674 


1675 


1679 


1680 



1681 
1686 
1691 
1696 

i7ni 


1682 
1687 
1692 
1697 
»Jfl2_ 


1683 
1688 
1693 
1698 


1946 
1951 
1956 


1947 
1952 
1957 


1948 
1953 
1958 



1684 
1689 
1694 
1699 



1949 
1954 
1959 



1685 
1690 
1695 
1700 
■ 1705 

1950 
1955 
1960 



Figure 36. SYSLST Output for Tape- to- Printer Sample Problems 
(Part 3 of 4) 



168 IBM S/360 DCS Sys. Gen. and Maint» 



1961 


1962 


1963 


1964 


1965 




1966 


1967 


1968 


1969 


1970 




1971 


1972 


1973 


1974 


1975 




1976 


1977 


1978 


1979 


1980 




1981 


1982 


1983 


1984 


1985 




1986 


1987 


1988 


1989 


199C 




1991 


1992 


1993 


1994 


1995 




1996 


1997 


1998 


1999 


2000 




BCOlU IS IT eoF 












REPLY Y 












END OF DATA 












PAGE 8 













NUMBER OF INPUT BLOCKS PRCCESSEO 000400 
NUMBER OF OUTPUT BLOCKS PROCESSED 00C40C 
END OF JOB 



Figure 36, SYSLST Output for Tape-to-Printer Sample Problem 

(Part ^ of ^) 
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Assembler 5 

Progrcun Name is Z-AS5. The Assembler 5 sample problem generates numbers 
from 2000 to 0001 in descending order and vnrites them to a 2311 disk 
storage device. To execute the Assembler 5 sample problem, the 
following job control cards are needed: 

Col. 5H Col. 72 

// JOB ASSEMBLY SAMPLE 5 T T 

// OPTION LINK,LIST, LOG, NOXREF 
//EXEC ASSEMBLY 

Assembler source deck (23 cards) 

.'♦ 

// EXEC LNKEDT 

// PAUSE ASSGN SYS002 TO SCRATCH PACK 

/ ASSGN SYS002,X*CUU* 
// VDL SYS002,OUTFILE 

// DLAB 'SAMPLE PROBLEM FILE OF 2000 RECORDS Ihhhhhh' , X 

Col. 16 

0001,66060,66080, • SAMPLE TEST ' 
// XTENT 1,000, 000180000, 000184002, •hhhhhh*,SYS002 
// BCEC 
/6 

Note: Replace hhhhhh in the DLAB and XTENT cards with the volume serial 
number of the disk pack- 

SYSLOG output is shown in Figure 17. 

Following is a summary of the SYSLST output shown in Figure 37: 

• Job control cards 

• External symbol dictionary 

• Source program listing 

• Relocation dictionary 

• Linkage editor storage map 
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// JOd ASSEMBLY SAMPLt 5 

// OPTION LINK. LIST, LOG. NQXRfcF 

// fcXfcC ASSEMBLY 



EXTtKNAL SYMBOL DICTIONARY 



SYMBOL TYPE ID AOOR LENGTH LO ID 



IJGFOZZZ 
IJGFOZZZ 



01 OCOOOC 0C017C 

02 

03 OCOlSo 000202 



DOS ASSEMBLER TEST 
LOG OBJECT CUOE ADORl A00R2 



cocooo 

OOCOtC 0580 

OuOC02 

C0C002 41D0 811E CC120 

000016 4130 07D0 CC70C 

OOCQiiA 4E30 8116 00118 

OOOOIE F337 2L0B 8116 COOOB CC118 

O00024 96F0 200E OOOOE 



SOURCE STATEMENT 



00C034 4630 8018 



0000E8 4040404040404040 

OOOOFF 4040404040404040 

GOOlie 

000120 

OOOOCC 

000168 5B5BC20607C50540 

000170 5B5BC2C3ii3D6E2C5 

000178 OC000048 



GCOIA 



2 




PRINT 


NOG EN 


3 




START 





4 


TESTGEN 


BALR 


8.0 


5 




USING 


*,8 


6 




LA 


la.SAVEAREA 


7 




OPEN 


OUTFILE 


15 




LA 


3.2000 


16 


NEXT 


CVD 


3.0M0 


17 




UNPK 


11(4.21 .Ot<0 


18 




01 . 


14(21, X'FO" 


19 




PUT 


OUTFILE 


24 




BCT 


3. NEXT 


25 




CLOSE 


OUTFILE 


33 




EOJ 




36 


OUTFILE 


DTFSD 


BLKSIZE=23.I0A«EA 
IOREG=(2).RECF0RM 


66 




SOMODFO 


263 


Al 


DC 


23C' ' 


264 


A2 


oc 


23C' ' 


265 


UWO 


OS 





266 


SAVfcAREA 


OS 


9D 


267 




END 


TESTGEN 


268 






= C> $$BOPEN • 


269 






= C'*tBCL0S£' 


270 






= A(OUTFILE» 



LOAD THE BASE REGISTER. 



OPEN THE OUTPUT FILE. 

GET STARTING RECORD VALUE. 

CONVERT THE VALUE TO DECIMAL. 

UNPACK THE VALUE. 

MASK THE SIGN BIT. 

WRITE A RECORD ON DISK. 

TEST FOR TASK COMPLETE. 

CLOSE THE DISK FILE. 

RETURN TO THE CONTROL PROGRAM. 
1=A1. I0AREA2=A2,TYPEFLE=0UTPUT, 
=F1XUNB,0EVICE = 2311 



DOS CL3-1 08/10/68 



$4650502 
$4650503 
$4650504 
$4650505 
$4650506 
$4650507 
$4650508 
$4650509 
$4650510 
$4650511 
$4650512 
$4650513 
$4650514 
$4650515 
C$4650516 
$4650517 
$46 50518 
$4650519 
$4650520 
$4650521 
$4650522 
$4650523 























RELOCATION DICTIONARY 


PAGE 1 


POS.IO 


REL.IO 


FLAGS 


AUURESS 






01 


01 


OC 


OCCOIO 






01 


01 


OC 


000040 






01 


01 


OC 


000050 






01 


02 


18 


0C0C59 






01 


01 


06 


CC0071 






01 


01 


OC 


000074 






01 


01 


OC 


OCCOAO 






01 


01 


OC 


00OCA8 






01 


01 


08 


COOOBl 






01 


01 


08 


00COB9 






01 


01 


08 


OOOOCl 






01 


01 


08 


0GCCC9 






01 


01 


08 


OCOODl 






01 


01 


08 


00OOD9 






01 


01 


06 


OOOOE 1 






01 


CI 


OC 


000178 






NO STATEMENTS FLAGGED IN 


THIS ASSEMBLY 







Figure 37. SYSLST Output for Assembler (ASS) Sample Problems 
(Part 1 of 2) 
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// EXEC LNKEDT 



JOB ASSEMBLY 08/10/68 
MAP 



DISK LINKAGE EDITOR DIAGNOSTIC OF INPUT 



C8/1C/68 PHASE XFR-AO LOCORt HICORE DSK-AD ESD TYPE LABEL LOADED REL-FR 
PHASE*** 002800 0028C0 002881 2B 06 2 CSECT 002800 002800 

CSECT IJGFOZZZ 002980 002800 



// PALlSE ASSGN SYS002 TO SCRATCH PACK 

// ASSGN SYS002,xn91' 

// VOL SYS002tOUTFILE 

// OLAB 'SAMPLE PROBLEM FILE OF 2000 RECORDS 

0001.66060f66080. ' SAMPLE TEST ■ 
// XTENT 1,000, 000180000. 000184002. '191191 •,SYS002 
// EXEC 



EOJ ASSEMBLY 



FigiDre 37. SYSLST Output for Assembler (ASS) Sample Problems 
(Part 2 of 2) 
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Tape and Disk Sort/Merge — 2311 Application 

Program Name is Z.SM5, The tape and disk sort/merge sample problem 
rearranges in ascending sequence the records produced by the Assembler 5 
program and writes them back to a 2311 disk storage device. To execute 
the tape and disk sort/merge sample problem the following job control 
cards are needed: 

Col. 5^ Col . 72 

// JOB SORT 2311 T T 

// PAUSE ASSGN SYSOOl, SYS 002,SYS003 TO SCRATCH PACK 

// ASSGN SYS001,X*cuu* 

// ASSGN SYS002,X* cuu' 

// ASSGN SYS003,X»cuu' 

// VOL SYS001,SORTCUT 

// DLAB 'SORTED FILE OF 2000 RECORDS FOR UTILITIES Ihhhhhh* , X 

Col. 16 

0001,66080,66080' SAMPLE TEST ' 
// XTENT 1,000,000171000,000174002, 'hhhhhh* ,SYS001 
// VOL SYS00 2,SORTIN1 
// DLAB 'SAMPLE PROBLEM FILE OF 2000 RECORDS Ihhhhhh', X 

Col. 16 

0001,66080,66080,' GAi^lPLE TEST ' 
// XTENT 1, 000, 000180000, 000184002, 'hhhhhh' ,SYS002 
//VOL SYS00 3,SORTWK1 
// DLAB 'SAMPLE PROGRAM WORK AREA FOR SORT RUN Ihhhhhh', X 

Col. 16 

0001,66080,66080,' SAMPLE TEST ' 
// XTENT 1,000,000184003, 000187005, 'hhhhhh' ,SYS003 
// EXEC SORT 

Sort/merge control cards (6 cards) 
/€ 

Note: Replace hhhhhh in the DLAB and XTENT cards with the volume serial 
number of the disk pack. 

SYS LOG output is shown in Figure 17. 

The following list summarizes the SYSLST output shown in Figure 38: 

• Job control cards 

• Sort control cards 

• Sort parameters 

• Computed constants 
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// JOa SORT 23il 

// PALSE ASS6N S YSOO 1 . SYS002 . SYS003 TO SCRATCH PACK 

// ASSGN SYS00i,X'191« 

// ASSGN SYSOOi.X' 191' 

// ASSGN SYS0u3.X> 191' 

// VOL SYS001.50RTOUT 

// OLAB 'SORTfcU Fice OF 2000 fttCOROS FOK UTlLITItS 1191191', X 

&C01. 66080. 66C80. ' SAMPLfc TEST ' 
// XTENT 1, 000, 000171000. 000174002. '191191' .SYSOOl 
// VOL SYS002.SGRTIN1 
// DLA8 'SAMPLE PROBLEM FILE OF 2000 REC0R05 1191191'. X 

0001.66080. 66080.' SAMPLE TEST • 
// XTENT 1. UCO. 000180000,000184002. '191191' ,SYS0C2 
// VOL SYS003.SOKTWK1 
// DLAB 'SAMPLE PROGRAM WORK AREA FOR SORT RUN 1191191'. X 

OJOl. 66080. 66060. ' SAMPLE TEST ■ 
// XTENT 1.000. 000184003. 00C187005. '191191'. SYS003 
// EXEC SORT 

70001 SORT FIELDS';! 11.4, Al .FCRMAT = clI.SIZE = 2C00.W0KK = l $4830101 

70001 RECORD TYPE=F . LENGTH=( 15 . . 15 I $4830102 

70001 INPFIL BLKSIZE»=75 $4830103 

70001 OUTFIL 6LKSI2E'=75 $4830104 

70001 OPTION PRINT=ALL.LAB£L=(S.S>.STORAGE=10240 $4830105 

70001 END $4830106 

70501 NMAX = Ciy003432 

70511 B = 00000828 

70521 G = 00000112 

7u01I PHASE END. NO DETECTED ERRORS 



Figiire 38. SYSLST Output for Tape and Disk Sort/Merge Sample Problem 
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Disk-to-Printer Utility 

Program Name is Z.UTDKPR2, Itie disk-to-printer utility sample problem 
lists the numbers handled by the Assembler 5 and tape and disk 
sort/merge (2311 application) sample problems. To execute the 
disk-to-printer utility sample problem, the following job control cards 
are needed: 

Col. 54 Col. 72 

// JOB DKPR 2311 TO PRINTER T T 

// PAUSE ASSGN SYSOOU TO SCRATCH PACK 

// ASSGN SYSOOU,X* cuu* 

// PAUSE ASSGN SYS00 5 TO THE PRINTER 

// ASSGN SYS005,X' cuu' 

// UPSI 000 

// VOL SYSOOU, UIN 

// DLAB 'SORTED FILE OF 2000 RECORDS FOR UTILITIES Ihhhhhh* , X 

Col. 16 

0001, 66080,66080, • SAMPLE TEST • 
// XTENT 1,000,000171000,00017^*002, 'hhhhhh* ,SYS004 
// EXEC DKPR 

Disk-to-printer utility control caids (2 cards) 
/* 

Note: Replace hhhhhh in the DLAB and XTENT cards with the volume serial 
number of the disk pack. 

SYSLOG output is shown in Figure 17. 

The following list summarizes the SYSLST output shown in Figure 39: 

• Job control cards 

• Utility parameter statements (10 lines) 

• Nimbers 0001-2000 (UOO lines) 

• NUMBER OF INPUT BLOCKS PROCESSED OOOUOO 

• NUMBER OF OUTPUT BLOCKS PROCESSED 000400 

• END OF JOB 
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// JC/O O^PR ^311 To HRINIEK 

// PAUSc ASSGN SySC&<» TO SCRATCH PACK 

// ASSoN SrbCO'«.X< 1<J1« 

// PAbSb ASSGN SVS005 TO THt PKiNTtR 

// ASSGN SYSOoS.X'uGE" 

// UPSI 000 

// VOL SVSuCt, UIN 

// iJLAd 'SURJtU f-ILt UF 20UL htCuRUS FUR UTILITIES 

0U01t6oi/8C.66GbCt • SAMPLt TtST • 
// XTfcNT 1,0^0.000171000.000174002, 'iqiigi' ,SYS004 
// EXcC DKPR 




// UOP TL.FF.A=(75,75),B = ( li:0),UC,Sl,PV 

// END 

DISK TO PRINT UTILITY 

INPUT RECURD LENGTH 0075 

OUTPUT RECORD LENGTH 0120 

INPUT BLOCK LENGTH 00075 

UUTPOT BLOCK LENGTH 00120 

OOTPUT OPTION PRINT CHARACTER 

2 IWPUI,^ uUTPul AREAS ASSIGNED 

RbCokU FjRMAT FIXED 

lYPE LIST 

STARTING RECuRU NUMBER COCOOCOi 

INPUT UEVICE TYPE 2J11 



0001 


CU02 


ceo 3 


0004 


0005 


0006 


0007 


0008 


0009 


COlO 


0011 


0012 


001=» 


0014 


0015 


Qiii* 


jitJ-Z 


— — -tiii.a ._ 


( 10 ^ T 


Qiiza. 


0261 


trrm 

0262 


0263 


0264 


0265 


0266 


0267 


0268 


0269 


0270 




0275 

0280 



Figure 39. SYSLST Output for Disk-to-Printer Sample Problems (UTDKPR2) 
(Part 1 of 3) 
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0551 
0556 
0567 
05b^ 
0571 

oeii 

081o 
C821 
0826 



iiil 
llln 



1366 
13 71 
1376 
1381 
1386 



0552 
0557 
C566 

0661 
0572 

— outrr" 

0812 
0817 

0822 
0827 



1112 
1117 
1122 



1367 
1372 
1377 

1382 
1387 



0553 
C558 
0565 
560 
0573 



0813 
0818 
0823 
0828 



0554 
0559 
0564 
0569 
0574 



0814 
08 19 
0824 
0829 



1113 
ills 
1123 



1368 
1373 
1378 
1383 
1388 



1114 
1119 
1124 



1369 
1374 
1379 
1384 
1389 



0555 
0568 
0563 



0815 
C820 

0825 
0830 




1115 
1120 
1125 

1370 
1375 
1380 
1385 
1390 



Figure 39. SYSLST Output for Disk- to- Printer Sample Problems (UTDKPP2) 
(Part 2 of 3) 
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1391 


1392 


1393 


1394 


1395 


1396 


1397 


1396 


1399 


14oe 


1407 


1406 


140b 


1404 


14C3 


1402 


1401 


1400 


14C9 


1410 


iiJJ 


UOJ _ 


UU3 


__^ 





1651 
1656 
1661 
1666 



1652 
lo5 7 
1662 
1667 



1653 
1658 
1663 
1668 



1654 
1659 



1655 
166C 



1671 
1676 
1681 
XMb- 

1936 
1941 

1946 



1672 
1677 
1682 
_1A*J_ 

1937 
1942 
1947 



1673 
1678 
1683 



1938 
1943 
1948 



1674 
1679 
1684 



19 39 
1944 
1949 



1675 
1680 
1685 



1940 
1945 
1950 



1951 


1952 


1953 


1954 


1955 


1956 


1957 


1958 


1959 


1960 


1961 


1962 


1963 


1964 


1965 


1966 


1967 


1968 


1969 


1970 


1971 


1972 


1973 


1974 


1975 


1976 


1977 


1978 


1979 


1980 


1981 


1982 


1983 


1984 


1985 


1986 


1987 


1988 


1989 


1990 


1991 


1992 


1993 


1994 


1995 


1996 


1997 


1998 


1999 


2000 


END Of DATA 










PAGE 8 











NUMBER Of INPUT BLOCKS PROCESSED 000400 
NUMBER Of OUTPUT BLOCKS PROCESSED 000400 
END Qf JOB 



Figure 39. SYSLST Output for Disk- to- Printer Sample Problems (UTDKPR2) 
(Part 3 of 3) 
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Assembler 6 

Program Name is Z.AS6. The Assembler 6 sample problem generates numbers 
froir 3000 to 0001 in descending order and writes them to a 23m direct 
access storage facility. To execute the Assembler 6 sample problem, the 
following job control cards are needed: 

Col. 54 Col. 72 

// JOB ASSEMBLY SANPLE 6 T T 

// OPTION LINK, LIST, LOG, NOXPEF 
// EXEC ASSEMBLY 

Assembler source deck (23 cards) 
/♦ 

// EXEC LNKEDT 

// PAUSE ASSGN SYS002 TO SCRATCH PACK 
// ASSGN SYS002,X'cuu' 
// VOL SYS002,OUTFILE 

// DLAB 'SAMPLE PROBLEM FILE OF 2000 RECORDS Ihhhhhh', X 
Col. 16 

0001,66060,66080,' SAMPLE TEST ' 
// XTENT 1, 000, 000180000, 000184002, • hhhhhh' ,SYS002 
// EXEC 
/& 

Note: Replace hhhhhh in the DLAB and XTENT ca::ds with the volume serial 
number of the disk pack. 

SYSLOG output is shown in Figure 17. 

The following list summarizes the SYSLST output shown in Figure 40: 

• Job control cards 

• External symbol dictionary 

• Source program listing 

• Relocation dictionary 

• Linkage editor storage map 
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// JIJ8 ASSfcMBLY SAMPLE 6 

// OPTION LINK. LIST, LOG, NOXkEF 

// EXEC ASSEMBLY 



EXTERNAL SYMBOL DICTIONARY 



SYMBOL TYPE ID ADOR LENGTH LD ID 



IJGFUZll 
IJGF02ZZ 



01 OOCOOG 00017C 

02 

03 OUOltiC 000202 



DOS ASSEMBLER TEST 



LOG 


OBJECT CODE 


AOORl 


A0DR2 


STMT 


SOURCE 


STATEMENT 












2 




PRINT 


NOGEN 


OOOOCO 










3 




START 





OOOCOO 


0580 








4 


TESTGEN 


BALR 


8,0 


000002 










5 




US I NG 


*,8 


000C02 


4100 


811E 




00120 


6 
7 




LA 
OPEN 


13, SAVEAREA 
OUTFILE 


000016 


4130 


0BB8 




00BB8 


15 




LA 


3,3000 


00001 A 


4E30 


8116 




00118 


16 


NEXT 


CVD 


3. OHO 


OOOOIE 


F337 


200B 8116 


COO OB 


00118 


17 




UNPK 


11(4, 2), DWD 


000024 


96F0 


200E 


OOOOE 




18 
19 




01 
PUT 


l4<2l,X'Fu' 
OUTFILE 


000034 


4630 


8018 




0001 A 


24 
25 
33 
36 


OUTFILE 


BCT 
CLOSE 
EOJ 
DTFSD 


3, NEXT 
OUTFILE 

BLKSIZE = 23,I0AREA1 
I0REG=(2),RECF0RM = 












86 




SDMOOFO 


OOO0E8 


4040404040404040 




263 


Al 


DC 


23C' • 


OOOOFF 


4040404040404040 




264 


A2 


DC 


230' • 


000118 










265 


DWD 


DS 





000120 










266 


SAVEAREA 


OS 


9D 


COOOOO 










267 




END 


TESTGEN 


000168 


5B5BC2D6D7C5D540 




268 






==C' $»BOPEN • 


000170 


5B5BC2C3D3D6E2C5 




269 






=C«*»BCLQSE» 


000178 


OOOOC 


)048 







270 






= A( OUTFILE! 









__~- 


■ _ 



LUAO THE BASE REGISTER. 



OPEN THE OUTPUT FILE. 

GET STARTING RECORD VALUE. 

CONVERT THE VALUE TO DECIMAL. 

UNPACK THE VALUE. 

MASK THE SIGN BIT. 

WRITE A RECORD ON DISK. 

TEST FuR TASK COMPLETE. 

CLOSE THE DISK FILE. 

RETURN TO THE CONTROL PROGRAM. 
'Al , I0AREA2=A2, TYPEFLE=OUTPUT, 
'IXUNB.DEVICE = 2314 



DOS CL3-1 08/10/68 



$4650602 
S4650603 
$4650604 
$4650605 
$4650606 
$4650607 
$4650608 
$4650609 
$4650610 
$4650611 
$4650612 
$4650613 
$4650614 
$46 50615 
C$465C616 
$4650617 
$4650618 
$4650619 
$4650620 
$4650621 
$4650622 
$4650623 



RELOCATION DICTIONARY 



PCS. ID REL.IO FLAGS ADDRESS 



01 


oc 


liOOOlO 


01 


oc 


000040 


01 


oc 


OOOOSO 


02 


18 


00C059 


01 


08 


0CC071 


01 


oc 


000074 


01 


oc 


jOOOAO 


01 


oc 


COCOAS 


01 


08 


OOOOBl 


01 


08 


0000B9 


01 


08 


OOOOCl 


01 


08 


O0O0C9 


01 


08 


OOCOOl 


01 


08 


000009 


01 


08 


OOOOE 1 


01 


oc 


000178 



NO STATEMENTS FLAGGED IN THIS ASSEMBLY 



Figure 40. SYSLST Output for Assembler (-AS6) Sample Problems 
(Part 1 of 2) 
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// EXEC LNKEDT 



JOB ASSEMBLY 08/10/68 OISK LINKAGE tDITak DIAGNOSTIC OF INPUT 

ACTION TAKEN MAP 

LIST ENTRY 



08/10/68 PHASE XFR-AD LOCCRE HICORE DSK-AO ESD TYPE LABEL LOADED REL-fR 

PHASE*** 002800 uC28CC OO^BBl 28 06 2 CSECT O02&0C 002800 

CSECT IJGFOZZZ 002980 0G28C0 



// PALSE ASSGN SYS002 W SCRATCH PACK 

// ASSGN SYSC02.X'230' 

// VOL SYS002,0UIf ILE 

// OLAB 'SAMPLE PROBLEM FILE OF 3000 RECORDS 

0001.66060,66080.' SAMPLE TEST • 
// XTENT l.OOC. 000180000.000184002. •X30X30'.SYSG02 
// EXEC 



EOJ ASSEMBLY 



Figure UO. SYSLST Output for Assembler (AS6) Sample Probl«ns 
(Part 2 of 2) 
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Tape and Disk Sort/Merge — 231U Application 

Program Nanne is Z.SM6. The tape and disk sort/ir.erge sample problem 
rearranges the records produced by the Assembler 6 program in ascending 
sequence and writes them tack to a 231U direct access storage facility. 
To execute the tape and disk sort/merge sample problem the following job 
ccntrcl cards are needed: 

Col. 5U Col. 72 

// JOS SORT 23m T T 

// PAUSE ASSGN SYSOOl, SYS002, SYS003 TO SCRATCH PACK 

// ASSGN SYSOOl, S'cuu* 

// ASSGN SYS002,X* cuu* 

// ASSGN SYS003,X'cuu' 

// VOL SYSOOl, SORTOUT 

// DLAB 'SORTED FILE OF 2000 RECORDS FOR UTILITIES Ihhhhhh' , X 

Col. 16 

0001,66080,66080,* SAMPLE TEST * 
// XTENT 1,000,000171000,000174002, 'hhhhhh* , SYSOOl 
// VOL SYS002,SORTIN1 
// DLAB 'SANjPLE PROBLEM FILE OF 2000 RECORDS Ihhhhhh', X 

Col. 16 

0001,66080,66080,' SAMPLE TEST ' 
// XTENT 1,000, 000180000, 000184002, • hhhhhh* ,SYS002 
// VOL SYS003,SORTWK1 
// DLAB 'SAMPLE PROGRAM WORK AREA FOR SORT RUN Ihhhhhh', X 

Col. 16 

0001,66080,66080,' SAMPLE TEST , 
// XTENT 1,000,000184003, 000187005, 'hhhhhh' ,SYS003 
// EXEC SORT 

Sort/ merge control cards (6 cards) 
/6 

Note: Replace hhhhhh in the DIAB and XTENT cards with the volume serial 
number of the disk pack. 

SYSLOG output is shown in Figure 17. 

The following list sumTrarizes the SYSLST output shown in Figure 41: 

• Job control cards 

• Sort control cards 

• Sort parameters 

• Computed constants 
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// JOB SORT 2314 

// PAUSE ASSGN SYS001,SySOC2.SYS003 TO SCRATCH PACK 

// ASSGN SYS001.X'230' 

// ASSGN SYS002tX'230' 

// ASSGN SyS0C3iX«231' 

// VOL SYSOOl.SORTOUT 

// DLAB "SORTED FILE OF 3CoC RECORDS FOR UTILITIES 

0001,66080.66080.' SAMPLE TEST • 
// XTENT 1.000. 000171000. Q0C174002.'X30X30'.SYS001 
// VOL SYS002,SORTIN1 
// OLAB 'SAMPLE PROBLEM FILL Cf 3000 RECORDS 

0001.66080.66080,' SAMPLE TEST • 
// XTENT 1. 000.000180000. 000184002. 'X30X30'.SYS002 
// VOL SYS003,SORTHK1 
// DLAB 'SAMPLE PROGRAM WORK AREA FOR SORT RUN 

0001, 66080. 66C80. • SAMPLE TEST ' 
// XTENT 1. 000.000184003, 000187005. ■X31X31'.SYS003 
// EXEC SORT 

70001 SORT FIbLDS=<11.4.AI.FORMAT=6I.SIZfc=3000.HORK= 

70001 RECORD TYPE=F .L£NGTH=( 15. . 15) 

70001 INPFIL BLKSIiE=75 

70O0I QUTFIL 8LKSIZ£=75 

700CI OPTION PRINT=ALL,LAB£L=(S.S).STORA&£=22528 

70001 END 

70501 NMAX = UC013540 

70511 8 = 00001683 

70521 G = 00000443 

70011 PHASE END. NO DETECTED ERRORS 



$4830201 
*483u202 
J4830203 
$4830204 
$4830205 
$4830206 



Figure 41. SYSLST Output for Tape and Disk Sort/Merge Sample Problem 
(SM6) 



Disk-to~Printer Utility 



Program Name is Z.UTDKPR3. The disk-to- printer utility sample problem 
lists the numbers handled by the Assembler 6 and tape and disk 
sort/merge (231U application) sample problems. To execute the 
disk- to- printer utility sample problem, the following job control cards 
are needed: 



col. 5a 
// JOB DKPR 2314 TO PRINTER I 

// PAUSE ASSGN SYSOOU TO SCRATCH PACK T 

// ASSGN SYSOOU, X* cuu* 

// PAUSE ASSGN SYS005 TO THE PRINTER 
// ASSGN SYS005,X*cuu' 
// UPSI 000 
// VOL SYSOOU, UIN 
// DLAB 'SORTED FILE OF 2000 RECORDS FOR UTILITIES Ihhhhhh' , 

Col. 16 

0001,66080,66080,' SAMPLE TEST • 
// XTENT 1,000,000171000,000174002, 'hhhhhh* , SYSOOU 
// EXEC DKPR 

Disk-to-printer utility control cards (2 cards) 
/* 



Col. 72 
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Note: Replace hhhhhh in the DLAB and XTENT cards with the volume serial 
number of the disk pack. 

SYSLOG output is shovm in Figure 17. 

The following list summarizes the SYSLST output shown in Figure 42: 

• Job control cards 

• Disk-to-printer control cards 

• Utility parameter statements (10 lines) 

• Numbers 0001-3000 (600 lines) 

• NUMBER OF INPUT BLOCKS PROCESSED 000600 

• NUMBER OF OUTPUT BLOCKS PROCESSED 000600 

• END OF JOB 
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// JClb OKPR 2314 TO PRINTEK 

// PAUSE ASSGN SYSC04 TO SCRATCH PACK 

// ASSGN SYSCCi4.X"230' 

// PAUSE ASSGN SYSuOS TO THE PRINTER 

// ASSGN SYSCOS.X'OOE' 

// UPSI 000 

// VOL SYSoct. um 

II DLAb 'SORTtO FILE Of 300C RECORDS FOR UTILITIES 

Ci001,66oaCt(>60tiOf ' SAMPLE TEST • 
// XTENT l.COO,OOC17IOCO.OCC174002.'X30X3Q'.SYS004 
// EXcC OKPR 



// UDP TL.FF,A=175.751.B=(120),0C.S1.PY,E=<2314I 

// END 

DISK TO PRINT UTILITY 

INPUT RECORD LENGTH 0075 

OUTPUT RECORD LENGTH 0120 

INPUT BLOCK LENGTH 00075 

OUTPUT BLOCK LENGTH 00120 

OUTPUT OPTION PRINT CHARACTER 

2 INPUT. 2 OUTPUT AREAS ASSIGNED 

RECORD FORMAT FIXED 

TYPE LIST 

STARTING RECORD NUMBER COOCCOOl 

INPUT DEVICE TYPE 2314 



S4610201 
«4610202 





DCOl 


0002 


0003 


0004 


0005 




0006 


0007 


OOOB 


0009 


0010 




0011 


0012 


0013 


0014 


0015 




I— CiUii 


Linn 


. nnifl 


__— -OClLS 


suUb 





0256 
0261 
0266 



0257 
0262 
0267 



0258 
0263 
0268 



0259 
0264 
0269 



0260 
0265 
0270 



Figure 42. SYSLST Output for Disk- to- Printer Sample Problems (UTDKPR3) 
(Part 1 of 5) 
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0271 


0<;72 


0273 


027^, 


0275 


C276 


0277 


0276 


0279 


C280 


0281 


0262 


0283 
JX^Hfi. . 


02 84 

£L-)UQ 


0283 
, Ji2fl^ . • _ ■ — ' 



0536 C537 0538 0539 0540 

0541 0542 0643 0544 0545 

0546 0547 0548 0549 0550 



0551 


0552 


0553 


0554 


0555 


C556 


0557 


0556 


0559 


560 


0561 


0562 


0563 


0564 

aSi^xS 


0565 


0806 


0807 


08C8 


C809 


0810 


0811 


0812 


0813 


0814 


0815 


0816 


0817 


0818 


0819 


C820 


0821 


0822 


0823 


0824 


0825 


0826 


0827 


0828 


08 29 


0830 



0831 0832 0833 0834 0835 

0836 0837 0838 0839 0840 

0841 0842 0843 0844 0845 



mu l TxraZ ■ TTTTT^ rwr-r tr^r-rr 

1086 1C87 1088 1089 1090 

1091 1092 1093 1094 1095 

1096 1C97 1098 1099 1100 

1101 1102 1103 lli^-t 1105 

1106 1107 1106 1109 1110 



Figure 42. SYSLST Output for Disk-to-Pr inter Sample Problems (UTDKPR3) 
(Part 2 of 5) 
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1111 


1112 


1113 


1114 


1115 


1116 


1117 


1118 


lllP 


1120 


1121 


1122 


1123 


1124 
u_ia . 


1125 










1371 


1372 


1373 


1374 


1375 


1376 


1377 


1378 


1379 


1380 


1381 


1382 


1383 


1384 


138 5 


1386 


1387 


1388 


1389 


1390 



1391 


1392 


1393 


1394 


1395 


1396 


1397 


1398 


1399 


1400 


1401 


14C2 


1403 


1404 


1405 


1406 


1407 


1408 
— ^ IM.L3. 


1409 


1410 










1656 


1655 


1654 


■ 1653 


1652 


1651 


165C 


1658 


1659 


1660 


1661 


1662 


1663 


1664 


1665 


1666 


1667 


1668 


1669 


1670 



1671 


1672 


1673 


1674 


1675 




1676 


1677 


1678 


16 79 


1680 




1681 


1682 

U-tt3 


16*3 
__ 16flR _ 


1684 
L&Afl 


1685 

UiS^ — 




-r-rro ■ 

1931 


1932 


1933 


1934 


1935 




1936 


1937 


1938 


19 39 


1940 




1941 


1942 


1943 


1944 


1945 




1946 


1947 


1948 


1949 


1950 





Figure U2. SYSLST Output for Disk-to-Printer Sample Problems (UTDKPR3) 
(Part 3 of 5) 
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1951 
1956 
1961 

2211 
2210 
2221 
2226 



1952 
1957 
1962 



2212 
2217 
2222 
2227 



1953 
1956 
1963 
_l<i6» 

2213 
2216 
2223 
2228 



195* 
1959 
1964 



2214 
2219 
2224 
2229 



1955 
196C 
1965 



2215 
2220 
2225 

2230 



2231 


2232 


2233 


2234 


2235 


2236 


2237 


2238 


2239 


2240 


2241 


2242 


2243 


22 44 


2245 


2246 


2247 


2248 


2249 


2250 








2489 


-^——^ 


2486 


2487 


2488 


2490 


2491 


2492 


2493 


2494 


2495 


2496 


2497 


2498 


2499 


2 50t 


2501 


2502 


2503 


2504 


2505 


2506 


2507 


2508 


2509 


2510 



2511 
2516 
2521 



2771 
2776 
2781 
2786 



2512 
2517 
2522 



2777 

2782 
2787 



2513 
2518 
2523 



2773 
2778 
2783 
2788 



2514 
2519 
2524 



2774 
2779 
27 84 
2789 



2515 
2520 
2525 



2775 
2780 
2785 
2790 



Figure U2. SYSLST Output for Disk-to-Printer Sample Problem (UTDKPR3) 
(Part 4 of 5) 
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2791 


2792 


2793 


279't 


2795 




2 7yo 


2797 


279b 


2799 


280C 




iB£J 


2JL^ 


. iai-3 , 


aaii 


PrtOi . ■ > 



2986 
2991 
2996 
END OF DATA 
PAGE 11 



2967 
2992 
2997 



2988 
2993 
2998 



2989 
2994 
2999 



299C 
2995 

3J00 



NUMBEK OF INPUT BLOCKS PRDCESSEO 00C6J0 
NUMBER OF OUTPUT BLOCKS PKQCESSED 000600 
END UF JOB 



Figure 42, 



SYSLST Output 
(Part 5 of 5) 



for Disk-to-Printer Sample Problem (UTDKPR3 ) 
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Autotest 

Program Name is Z.ATl. The Autotest sample problem demonstrates to the 
problon programmer some of the more useful features of Autotest. 
Basically, the program is a two-step loop that: 

1. Reads a data card, and 

2. Moves certain fields of the card to designated storage areas. 

This simple loop is repeated five times before the end-of-job routine is 
entered. The Autotest sample problem source progf'am listing is shown in 
Figure 43. 

If the Autotest sample problem is run in a multiprogramming system, 
no core may be allocated to the foreground area (Fl and F2=0K) . 

All Autotest control cards have a ./ punched in columns 1 and 2, 
respectively. The first and second Autotest control cards perform any 
phase and control section qualification included in the test deck. 
Because the example has only a single phase and one control section, no 
modification is required and these two cards could be eliminated. 

Autopatch capabilities are demonstrated by the next six control 
cards, resulting in the following action: 

• A new instruction is added to the program between two other existing 
instructions. 

• One instruction is exchanged for another. 

• The assembled value of a constant is changed. 

Another important function of Autotest is demonstrated by the test 
request cards (./ TR) . The first of these cards initiates test request 
Number 001, and the following continuation card initiates test request 
Number 002. These two cards result in the following: 

• The 16 general registers and the two areas of storage at SYMA and 
SYMC+3 are displayed prior to executing the instruction at THERE. 
(Because there are five data cards, this request will be executed 
five times.) 

• The storage locations IN+75 and IN+76 are displayed for only the 
second and fourth data cards as specified by the ON parameters. 

The ./ PCC card (program control card) gives a normal end-of-job 
storage printout. This printout can have one or more formats. 

The user installation must define the work area for Autotest if 
nonstandard labels are used. In the case of nonstandard labels, the job 
control cards required are: DLBL and EXTENT. The file name in the VOL 
card imst be IJSYSAT. Twenty tracks are required in the EXTENT card. 
Only one work area may be assigned and it must be continuous unless the 
split-cylinder concept is used. If this concept is used, refer to IBM 
System/360 Disk Operating System, System Control and System Service 
Programs , Form C24-5036. For additional information concerning Autotest 
work files, refer to IBM System/360 Disk Operating System, Autotest , 
Form C24-5062. 
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The job control cards used in executing the Autotest sample problem 
are: 

// JOB AUTOTEST 
// OPTION SYM,LINK 
// EXEC ASSEJ^BLY 

AUTOTEST SOURCE DECK (27 cards) 
/* 

// EXEC ATLEDT 
./ PHQ AAAAAAAA 
./ CSQ CSECTl 
./ ADD THERE -6,40 

MVC SYMB,SYMA *D203A08EA086 

./ EXC BC2,2 

♦ a710A03t| 
./ 00 N SYMA, 2 

* 0000000000000000 

,/ TR THERE, ,CPL, SYMA, SYMC+3,,C,G 

Col. 16 

DSP,IN+75, IN+76, (2,4,2),B 
./ PCC AMS,AMS,2000 
// EXEC 

AUTOTEST DATA DECK (5 cards) 
/* 
./ ATEOF 

SYSLOG output is shown in Figure 17. 

The following list summarizes the SYSLST output shown in Figure 43: 

• Job control cards 

• External symbol dictionary 

• Source program listing 

• Relocation dictionary 

• Cross-reference 

• Linkage editor input diagnostic 

• ./ Autotest control cards (11 cards) 

• Autotest data (5 cards) 

• Test requests 

• Normal EOF storage dump 

• EOJ AUTOTEST 



Autotest Problem Test Results 

For the following discussion, refer to the circled letters on the SYSLST 
output for the Autotest sample problem. Figure 4 3. The Autopatch 
control card (./ ADD THERE-6,40) inserts an additional instruction 
between statement numbers 10 and 11 (see A) . The core dump at the end 
of the program shows that the instruction at MVC2 (see E) has been 
replaced by a supervisor call (SVC 254). This instruction forms a link 
to the patch area in storage. The actual patch is displayed at (F) and 
consists of two MVC instructions and SVC 255 which forms the return link 
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to the instruction located at THERE. The instruction (./ EXC BC2,2) 
causes the instruction at BC2 (see B) to be replaced by SVC 253. The 
core dump shows the resulting patch at points G and fl. Finally, the 
constant at C is changed from one to zero before program execution. The 
test requests at location THERE (see D) are shown on a separate page of 
the listing (Figure 43). Test request Number 1 is displayed a total of 
five times, once for each data card. Test request Number 2 appears only 
for the second and fourth data cards. The rest of the printout contains 
the normal EOJ core dump. 



// JuB AUTOTtST 
// OPTION SYM.LINK 
// EXEC ASSEMBLY 













CittTl 


lYPt ID AUUR LENUTH LU 10 
Su 01 COOCOO O0C0B4 


cXTbKNrtL SYMdOL OICHUNARY 










LLC 


OBJECT CODE 


AOORl 


A00R2 STMT SuuRCE 


STATEMENT 


DOS CL3-0 














1 


RcPRO 




$4590001 














2 


PHASE 


AAAAAAAA, S 


$4590002 




CUCCOC 










3 CSECTl 


START 





$4590003 




C00002 










4 R2 


EUU 


2 


$4590004 




000003 










5 R3 


EQU 


3 


$4590005 




COOOOA 










6 RIO 


EUU 


10 


$4590006 




000000 


05A0 








7 HERE 


BALK 


RIO.O 


$4590007 




000002 










8 


USING 


*>R10 


$4590008 




000002 


4520 


A018 




OOOIA 


9 BALI 


BAL 


R2,REA0 


$4590009 




CCOOOb 


C203 


A086 A040 00088 


00042®-.-! MVCl 


MVC 


SYMA(4I>IN+10 


$4590010 




OOOOOC 


D203 


A092 A081 00094 


00083 


11 MVC2 


MVC 


SYMC(4),IN+7b 


$4590011 




0000X2 


4830 


AC92 




00094@-»12 THERE 


LH 


R3.SYMC 


$4590012 




000016 


47f0 


AOOO 




00002 


13 BCl 


6C 


15,HERE+2 


$4590013 




0000 lA 










14 READ 

15 CHAN 


EQU 
tXCP 


* 
CARDCCB 


$4590014 
$4590015 














16+* 360N-CL-453 


EXCP CHANGE LEVEL 3-0 






OOOOIA 


5810 


AOAE 




OOOBO 


17+CHAN 


L 


It^AtCARDCCd) 






OOCOiE 


CAUC 








18+ 

19 HAITI 


SVC 
WAIT 



CARDCCa 


$4590016 














20+* 360N-CL-433 


WAIT CHANGE LEVEL 3-0 






000U20 


5810 


AOAE 




OOOBO 


21+MAITl 


L 


1, = A(CARDCCB) 






000C24 


9180 


1002 


00002 




22+ 


TM 


2(1),X"80» 






C;liOQ2ti 


47lC 


A02C 




0002E 


^i* 


BO 


*+fa 






00002C 


CAOT 








24+ 


SVC 


7 






O0OC2E 


9101 


A09A 


C009C 




25 TEST2 


TM 


CARDCCI 1-4,1 


$4590017 




000032 


0712 






<^^Zb 8C2 


BCR 


1,K2 


$4590018 




000034 


07F2 








27 BCRl 

28 EOJ 


BCR 
EOJ 


15, R2 


$4590019 
$4590020 














29+* 360N-CL-453 


EOJ CHANGE LEVEL 3-0 






000C36 


CAOE 








30+EOJ 


SVC 


14 






000038 


404040404C404040 




31 IN 


[>C 


CL80' • 


$4590021 




OO0C88 


CCCCCCOlOOOOOOOl 


©—32 SYMA 


OC 


2F'l' 


$4590022 




OOOOSO 


r, CO CO 000 






33 SYMB 


DC 


F'O' 


$4590023 




000094 


CCOCCCOO 






34 SYMC 


DC 


2H'0' 


$4590024 














3b CARDCCfl 


CCB 


SYSIPT.CAROCCW 


$4590025 














36+* 360H-CL-453 


CCB CHANGE LEVEL 3-0 






C00098 


0000 








37+CAR0CC6 


DC 


XL2"0' RESIDUAL COUNT 






00CC9A 


COOC 








38+ 


DC 


XL2'0' COMMUNICATIONS BYTES 






000C9C 


0000 








39+ 


DC 


XL2'0' CSU STATUS BYTES 






00009k 


00 








40+ 


DC 


ALKO) LOGICAL UNIT CLASS 






cooosf 


01 








41+ 


DC 


ALKl) LOGICAL UNIT 






OOOOAO 


00 








42+ 


DC 


XLl'O* 






OOOOAl 


C000A6 






43+ 


OC 


AL3(C4RDCCW) CCW ADDRESS 






0000A4 


CO 








44+ 


DC 


B'OOOOOOOO* STATUS BYTE 






OOCCAS 


CCOOOO 






45+ 


DC 


AL3(0) CSM ecu ADDRESS 






0000A8 


G200O0382C0C0C50 




46 CARtX:CM 


ecu 


2, IN, 32, 80 


$4590026 




COOOOO 










47 


END 


HERE 


$4590027 




OCCCdO 


CCOC0098 






48 




=A(CAROCCBI 


















RELOCATION DICTIONARY 






POS. 


REl-.iO 


FLAGS 


ADDRESS 












01 




01 


08 


OOOOAl 












01 




01 


08 


00O0A9 












01 




01 


OC 


OOOOBO 

































Figure 43. SYSLST Output for Autotest Sample Problems (Part 1 of 4) 



192 IBM S/360 DOS Sys. Gen. and Maint. 





iYhbbL LEIM VALUE UtFN 

bALl 0CbC4 OCOOC^i 0009 
bCKl OCCC^ 000034 00^7 
bcl 0CCC4 00CC16 C013 

CAROCCa 00002 000098 00J7 
CAKOCCta 00008 0000A8 0046 
CHAN 000C4 OOOOIA 0017 
CSfcCTl OCOCl OCOOOO 0003 
tCJ C0CC2 000036 0030 
htRt OO0C2 OOOCCC 0007 
IN 00080 000038 CQ31 
ftVCl 0O0C6 CC00C6 CCIO 
hVC2 0CCC6 OOOOOC 0011 
RtAU 00001 OOOOIA 0014 
RIO CCOCl OOOOCA 0006 
K2 QOOCl 000002 0004 
R3 00001 000003 OOOi. 
SYMA 00004 000088 0032 
iVMB C0CC4 000090 0033 
SYMC 0CC02 000094 00j4 
IcST2 Q0CC4 00002E 0025 
IhERt 00CC4 000012 0012 
HAITI 00004 0000^:0 0021 


CROSS-REFtRENCE 

0017 0021 0025 0048 
0043 

0013 0047 

0010 0011 0046 

00C9 

0007 0008 

0009 0026 0027 

0012 

0010 

0011 0012 
















Nlj STATEMfcNTi t^LAGUfcO IN THli 


ASSEMbLY 
















// fcXtC AlLfcOT 
















— 


JOb AuTLTtST aUTuTEST DISK LINKAGt EDITOR DIAGNOSTIC UF 


INPUT 




« 






— 




ACTION TAKEN MAP 


















LIST PHASE AAAAAAAA 


,S 




$4590002 












LIST ENTRY 


. . 












__ 


--- 


PhAit XFk-AU LGCGkt MlCORE OSK-AO ESD TYPE LAbEL 


LOADED 


REL-FR 









-- 




/AAaAAaa 002000 CO^OOO 0020B3 21 5 2 CSECT CSECTl 


002000 


002000 








_ 




SVC= TR= 

./ PHd AAAAAAAA 

./ CSg CbtCTl 

./ ADD THtRE-6,40 


CARD-IMAGE 








PPA-TPA 
00200C 


ERROR/S 






254 MVC SYMB.SYMA *D203A08£A086 
















./ EXC 6C2,2 










002032 








253 *4710A034 


















./ CON SYMA, 2 










002088 








♦OOOCOOOCOCOOOGOO 


















252 001 ./ TR THERE, , UPL, SYMA, SYMC+3,,C,G 




C 




002012 








002 DSP 


, IN+75,IN+76,(2,4,2I,B 
















./ PCC AMS,AMS.2000 















Figure 43. SYSLST Output for Autotest Sample Problems (Part 2 of H) 
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// txfcc 


















TfcST 


RfcMOtST JO 001 UN 00001 




-- 




- 










REGO 


OOOOFb^O 00Q0209a 


9C002006 




00002000 




OOOOFFbC 


OO0OFC15 


A000213C 


COC00002 


ktGri 


00000043 OCCOOOOO 


50002002 




OO0C2UO0 




0G002C38 


00003C38 


OOOOOIBO 


00C0008B 




COilCBb 1 








1 AAA 


A 










TfciT 


REOOtST ID 001 ON 000C2 


















KfcGO 


OOOCfb90 00002098 


8C002006 




FFFFCICI 




OOOOFFbC 


OOOOFClb 


A000213C 


C0000002 


KEGti 


OOC00043 00000000 


5C002002 




00002000 




00002C3B 


00003C38 


OOOOOIBO 


C000008B 




002Cb8 C 2 








2 Bob 


B 










TfcST 


REQUEST 10 002 UN 00002 

002083 C2C2 
B B 


















TtST 


REUUEST ID 001 UN 00003 


















RfcGO 


00O0F690 0C002098 


80002006 




FFFFC2C2 




OOOOFFBC 


0000FC15 


A000213C 


C0000002 


KfcGS 


00000043 00000000 


50002002 




OOOC2000 




00002C3B 


00003C38 


OOOOOIBO 


0000008B 




002088 3 








3 C C C 


C 










TEST 


REtibtST 10 001 UN 00004 


















RtGO 


00C0FB90 00002098 


80002 006 




FFFFC3C3 




OOOOFFBC 


0OO0FC15 


A000213C 


C0000002 


HtGti 


00000043 OCOOOOOO 


5CC02002 




00002000 




00002C38 


00003C38 


OOOOOIBO 


0000008B 




002088 4 








4 D U 


D 










TfcST 


REQUEST ID 002 UN 00004 

002083 C4C4 
D 


















TtST 


REQUEST ID 001 ON 00005 


















KEGO 


0C00FB90 00002098 


8CC02006 




FFFFC4C4 




OOOOFFBC 


0000FC15 


A000213C 


00000002 


RtGb 


00000043 OCOOOOOO 


50002002 




000C2000 




00002C3B 


00003C38 


OOOOOIBO 


0000008B 




002088 C C 5 








5 E E E 


fc 










LIST 


OF PHASE-NAMES 


















AAAAAAAA FETCH 002000 


0020B3 


















NORMAL 


END UF JOB 










USER PSK - FF150COt700C2038 










GR 0-7 


0OO0FB9O 00002098 80002006 FFFFC5C5 


0000FF6C 0000FC15 


A000213C 00000002 






GR 8-F 


00000043 00000000 50002002 00002000 


00002C38 00003C38 


OOOOOIBO 0000008B 






FR 0-6 


4131998D1F000000 4153235060400000 


BE7C2000E9886200 


0000000000000000 






CUMREG 


F0F161F0 F161F6Fa 20002000 COOOOOOO 


00000000 00000000 


ClE4t3D6 E3C5E2fc3 


OOOOFFFF 000020B3 000020B3 0000 



r. 



Figure 43. SYSLST Output for Autotest Sample Problems (Part 3 of U) 
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-LAa£L LEN6TH- 


0000 






















S2 
Si 
C02000 
CH 
MN 


BALI 
CSECTl 
05A 04520 

bALRdAL 


MVCl 
A018L)203 
K 
MVC 


A0a6A040 


(li.MVC2 

OAF to 700 

SVC BCR 


002010 


THERE 
07000AFC 

BCR SVC 


BCl 
070047F0 


BCR BC 


REAU 
A0005810 

L 


AOAEOAOO 
SVC 






S2 
SI 

002020 
CH 
MN 


taAITl 
SBlOAOAfc 

L 


9id01002 
TM LPR 


4710A02C 
BC 


TEST2 

0A079i01 

SVC TM 


002030 


@LbC2 
A09A0AFU 

SVC 


EOJ 
BCRl 
07F20A0E 

2 
BCR SVC 


IN 

615C4040 
/ * 

STH 


40404040 
STH STH 






002040 

CH 

MN 
C02060 


404C4C40 


4C404040 


40404040 


40404040 


002050 


40404040 


40404040 


40404040 


40404040 






STH STh 
DITTO 


STH STH 


STH STH 


STH STH 




STH STH 


STH STH 


STH STH 


STH STH 





OOFFAO 
CH 
MN 


07C1FF00 

A 
BCR 


22FC120C 
LTURLTR 


0002C1C1 
A A 


CICICICI 
A A A A 


OOFFBO 


C1C11200 
A A 

LTR 


04001200 
SPM LTR 


04101400 
SPM NR 


09001400 
ISK NR 




OOFFCO 
CH 
MN 


09011400 
iSK NR 


02000000 


20B30020 
LPDR 


38090000 
LtR 


OOFFDO 


00000100 


00000000 


OOFFOOOO 


20B30000 
LPDR 




OQFFEO 
CH 
MN 
tNO 


120C0100 
LTR 


12000103 
LTR 


12000200 
LTR 


12000201 
LTR 


OOFFFO 


12000300 
LTR 


12000300 
LTR 


00000000 


00000000 




EOJ AUTOTEST 























Figiare 43- SYSLST Output for Auto test Sample Problems (Part U of 4) 



Multiprogramming 

Multi prograiraning capabilities are demonstrated by the multiprogramming 
sample problem. A control program supporting multiprogramming is 
required. A card-to-printer utility macro lists fifteen test cards 
containing the instructions and necessary operator commands to initiate 
the job in the foreground -one (Fl) area. The card-to- printer utility 
macro is first cataloged and then assembled and executed as a background 
job. The fifteen test cards are listed on the printer. When the last 
card in the reader has been read and processed, the following message 
will be printed on SYSLOG: 

0P08A INTERV REQ SYSRDR ... 

To clear the intervention required condition on the reader, the 
operator should enter the following two cards in the reader and ready 
the device: 

/g 

// PAUSE REFER TO PRINTER FOR ADDITIONAL INSTRUCTIONS 

The operator can now initiate this same program in the foreground area 
by following the instructions previously listed on SYSLST when the job 
was run in the background problem area. 

The same data previously used for the background execution (fifteen 
test cards) is used as input data for the foreground execution. The 
data cards must, therefore, be removed from the card reader output 
stacker and they must be replaced in the input hopper. Then the card 
reader is made ready. The operator should now follow the instructions 
contained in the test data to initiate the job in the foreground area. 
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Several assumptions have been made in the multiprogramming sample 
problem. The first assumption is that a foreground-one area has 
previously been allocated. If this has not been done, the operator 
should refer to the DOS Operating Guide referenced on the cover of this 
publication. 

The second assumption is that SYSRDR or SYSIPT is assigned to OOC and 
SYSLST assigned to OOE and that there are no other logical units 
assigned to these devices. If this is not the case, message 

1A13D CONFLICTING I/O ASSIGNMENTS 

will be issued on SYS LOG when the operator tries to initiate the program 
in the foreground area. To recover from this condition, the operator 
should reply CANCEL to the preceding message. The message 

Fl 0S02I JOB FG INIT. CANCELED DUE TO PROGRAM REQUEST 

will then be issued. The operator should then press the Request key on 
the 1 05 2-Printer-Key board. The message 

1I60A READY FOR COMMUNICATIONS 

will be issued. The operator should next enter the START command 
followed by 

ASSGN SYSxxx,UA 

where xxx is the unitCs) retaining a background assignment for the 
indicated device. The operator can now initiate the job in the 
foreground- one area as previously described. To execute the 
multiprogramming sample problem the following cards must be entered: 

// JOB CATALOG SAMPLE FOREGROUND/BACKGROUND PROGRAM 
// OPTION CATAL 

PHASE CARDPRNT, +0 
//EXEC ASSEMBLY 

Column 10 

PRINT NOGEN 

START 

INCARD 

OUTPRT BUFSIZ=80 

END 
/* 

// EXEC LNKEDT 
/£ 

// JOB EXECUTE SAMPLE FOREGROUND /BACKGROUND PROGRAM 
// ASSGN SYS001,X*00C* (Note 1) 

// ASSGN SYS002,X*00E* (Note 2) 

// PAUSE CARD READER END-OF-FILE SIGNALS END OF CARD INPUT 
// EXEC CARDPRNT 

* THESE COMMENTS AND THE FOLLOWING STATEMENTS ARE TEST INPUT 

* NOW IN A PAUSE STATUS, UNASSIGN THE PRINTER (X'OOEM AND THE CARD 

* READER (X'OOC*) TO PERMIT SUBSEQUENT ASSIGNMENT TO FOREGROUND 

* AREA. TO DO THIS, TYPE THE FOLLOWING 
ASSGN SYSRDR, UA 

ASSGN SYSIPT, UA (Note 3) 

ASSGN SYSLST, UA 

* TO SUSPEND BACKGROUND (BG) AREA PROCESSING TYPE 
STOP 

* TO INITIATE PROGRAM NAMED CRDPRNT IN FOREGROUNDl (Fl) AREA, 

* THE FOLLOWING FOUR STATEMENTS ARE TO BE TYPED ON SYSLOG (1052) 
START Fl (Note 4) 

ASSGN SYS001,X»00C' (Note 1) 
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ASSGN SYS002,X*00E* (Note 2) 

EXEC CARDPRNT 

Note 1: SYSOOl must be assigned to a card reader. 

Note 2: SYS002 must be assigned to a printer. 

Note 3: These cards are required only if SYSOOl or SYS002 retain a 

background assignment. A device used by a foreground program 
cannot be assigned to a background area at the same time. 

Note U: This command is processed by the ATTN routine (Refer to DOS 

Operating Guide referenced on the cover of this publication.) 

The test cards for the multiprogramming sample problem are output on 
SYS 00 2, which was previously assigned to the system printer. LOG must 
be keyed on the 1052 Printer-Keyboard at the beginning of the job to 
obtain a complete listing of all job control cards and messages. The 
SYSLOG output is shown in Figure 18. The SYSLST output in Figure U4 
contains: 

• Job control cards 

• External symbol dictionary 

• Source program listing 

• Relocation dictionary 

• Diagnostics 

• Linkage editor storage map 

• List of test cards processed by card-to-printer utility program 
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// JOB CATALOG SAMPLE FCREGROUND/8ACKGR0UN0 PROGRAM 
// OPTION CATAL 

PHASE CAROPRNTi«G 
// EXEC ASSEMBLY 



EXTERNAL SYMBOL DICTIONARY 



SYMBOL TYPE 10 ADOR LENGTH LO ID 



PC 01 OOOCOO 00034A 























VAGE 


1 


LOC 


OBJECT CODE AODRl AD0R2 


STMT 


SOURCE 


STATEMENT 
















1 




PRINT NOGEN 








000000 








2 

3 

109 




START 

INCARD 

OUTPRT BUFSIZ=80 

















237 




END 
























RELOCATION DICTIONARY 




PAGE 


1 


pos.iu 


REL.ID 


FLAGS 


ADDRESS 














01 


01 


CC 


000050 














01 


01 


CS 


OOOOCl 














01 


01 


ce 


OO00C9 














01 


01 


08 


O0O0D9 














01 


01 


ce 


OOOOEl 














01 


01 


OC 


OOOICC 














01 


01 


08 


000269 














01 


01 


08 


0002T1 














01 


01 


08 


000281 














01 


01 


08 


000289 














01 


01 


08 


000299 














01 


01 


C8 


0002A1 
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CRCSS-REFERENCE 






PAGE I 


S/MBOL 


LEN 


VALUE 


OEFN 
















COAAOOOl 


00004 


000004 


0009 


0030 


0044 


0046 


0093 








COACOOOl 


00004 


OOOOSO 


0030 


0014 


0028 












COAOOOOl 


00080 


OCOCOC 


0032 


0056 














COAEOOOl 


00080 


00005C 


0033 


0066 














COAFOOOl 


00002 


OOOOBC 


0043 


0C99 


0102 


0104 










CDAGOOOl 


00002 


000084 


0045 


0103 














COAHOOOl 


00002 


0000B8 


0047 


0016 


0018 


0044 










COAJCOOl 


00008 


O0OOC8 


0056 


0019 


0021 


0053 










COAKOOOl 


00002 


000000 


0057 


0022 


0024 


0046 










COAtOOOl 


00008 


OOCOEC 


0066 


0025 


0027 


0063 










COANOOOl 


00004 


O00OF8 


0069 


0015 


0029 


0096 










CUAPOOOl 


00004 


OCOIOC 


0071 


0C97 














COAQOOOl 


00004 


OOOIOA 


0074 


0C72 














COAROOOl 


00004 


OOOllE 


0080 


0075 














COASOOOl 


00004 


0C012E 


0084 


0079 














COATOOOl 


00004 


000160 


009S 


0C69 


0083 












CDAUOOCl 


00002 


000166 


Old 
















COBACOOl 


00004 


OQOOCC 


0011 


0031 














COBMOOOl 


00004 


000158 


0098 


0084 


0085 


0091 


0092 








CDCMOOOl 


00004 


OCOOEe 


0067 


0012 


0095 


0106 










COENOOOl 


00004 


000176 


0106 


0087 














COREOOOl 


00002 


00013C 


0089 


0010 














C0R20001 


00004 


oaoi4E 


0096 


0070 


0078 












COKOOOOl 


00001 


OOOCOG 


0034 


00 76 


0076 


0081 










CQRIOOOI 


00001 


000001 


0035 


0071 


0074 


0080 


0084 0086 0091 


0099 


0100 




C0R2000I 


00001 


000002 


0036 


0012 


0013 


0014 


0017 0020 0023 


0026 


0077 0077 


0080 0081 0082 0086 0095 0106 


COR30001 


00001 


000003 


0037 


0016 


0017 


0018 


0019 0020 0021 


0022 


0023 0024 


0025 0026 002 7 0069 0083 0105 


CJR40001 


00001 


000004 


0038 


0102 


0103 












C0R5OO01 


00001 


0COO05 


0039 


0012 


0095 


0102 


0104 0106 








CDSMOOOl 


00004 


000008 


0010 


0011 














COXXOOOl 


00001 


00017A 


C1C8 
















CD140001 


00001 


OOOOCE 


0040 


0087 














C0150001 


00001 


OCOOCF 


0041 


0007 


0008 


0009 


0009 0013 0028 


0085 


0089 0090 


0092 0093 0094 0094 0100 0107 


PRAA0002 


00004 


000 17C 


0115 


0138 


0153 


0154 










PRAC0002 


00004 


000188 


0118 


0139 














PRA00002 


00004 


OCOICC 


0138 


0120 














PftAE0002 


00080 


000188 


0140 


0163 














PRAF0002 


00080 


0C01D8 


0141 


0171 














PRAH0002 


00004 


000238 


0153 


0200 


0202 


0203 










PRAJ0002 


00004 


00023C 


0154 


0189 


0201 


0228 










PRAK0002 


00004 


00024C 


0155 


0116 


0224 


0231 










PRAQ0002 


00002 


00O2AC 


0184 


0117 


0121 


0137 










PRAR0002 


00004 


0002CC 


0191 
















PRAU0002 


00001 


0002DC 


0199 


0195 














PRAV0002 


00004 


0002E8 


0203 
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CROSS-REFERENCE 
















PAGE 2 


SYHBOL 


LEN 


VALUE 


DEFN 




























PRAH0002 


00001 


000318 


0216 


0207 


























PKA/0002 


00004 


0C031A 


0218 




























PRB1C002 


00006 


000260 


0156 


0122 


0124 


0154 






















PRB2Q002 


00006 


000276 


0164 


0125 


0127 


0153 






















PRB30002 


00006 


00029C 


0172 


0134 


0136 


0196 






















PR0A00C2 


00004 


OC0320 


0220 




























PRDB0002 


00006 


0C0324 


0221 


0220 


























PROC0002 


00002 


0C032A 


0222 




























PR0D0002 


00004 


00032E 


0224 


0187 


0233 
























PRDE0002 


00001 


0C0334 


0227 


0185 


























PREH0002 


ooooe 


00C230 


0152 


0212 


























PRENC002 


00001 


00034A 


0236 




























PRFB0002 


00004 


0002A8 


0182 


0206 


























PftHH0002 


00004 


000228 


0151 


0210 


0214 
























PR5V0002 


00002 


0C032C 


0223 




























PRSM0002 


00004 


000184 


0117 


0118 


























PRS10002 


00004 


0002FA 


0208 


0209 


























PRS30002 


00004 


000314 


0215 


0208 


























PRT90002 


00004 


0CO2CA 


0194 




























PRMA0002 


00008 


000270 


0163 


0128 


0130 


0160 






















PRHB0002 


00008 


000288 


0171 


0131 


0133 


0168 






















PRIal0002 


00001 


0C02A0 


0179 




























PRM200C2 


00001 


C002AC 


0180 




























PRH300C2 


00008 


0002AO 


0181 


0176 


0197 
























PR000002 


00001 


000000 


0142 


0184 


0184 


0210 


0211 


0214 0217 


















PR010002 


00001 


000001 


0143 


0186 
0229 


0186 
0230 


0188 
0231 


0189 
0232 


0190 0191 
0232 


0194 


0196 


0210 


0212 


0214 


0217 


0221 


0222 0228 


PR020002 


OOOCl 


CC0002 


0144 


0119 


0120 


0123 


0126 


0129 0132 


0135 


0188 


0206 


0215 


0218 


0219 


0220 




PR030002 


00001 


000003 


0145 


0122 


0123 


0124 


0125 


0126 0127 


0128 


0129 


0130 


0131 


0132 


0133 


0134 


0135 0136 


PR040002 


00001 


COO0C4 


0146 


0116 


0224 
























PR130002 


OOOCl 


cooooo 


0147 


0116 


0200 


0201 


0205 


0221 0224 


















PR140002 


00001 


OOOOOE 


0148 


0200 


0202 


0203 


0204 


0205 0218 


0222 


0225 














PR1S0002 


00001 


COOOOF 


0149 


0113 


0114 


0115 


0115 


0119 0190 


0204 


0229 


0235 












Ua STATEMENTS FLAGGED 


IN THIS 


ASSEMBLY 
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// EXEC LNKEOT 



DISK LINKAGE EDITOR OIAGNOSTIC OF INPUT 



JOB CATALOG 

ACTION TAKEN HAP 
LIST PHASE CARUPRNTi+O 
LIST ENTRY 



PHASE XFR-AO LQCORE HICORE OSK-AO 
CAROPRNT 000000 000000 000349 28 1 



ESQ TYPE LABEL 
CSECT 



LOADED REL-FR 
000000 000000 



SYSTEM DIRECTORY 



DIRECTORY STARTING ADDRESS 
DIRECTORY NEXT ENTRY 
DIRECTORY LAST ENTRY 

LIBRARY STARTING ADDRESS 
LIBRARY NEXT AVAILABLE ENTRY 
LIBRARY LAST AVAILABLE ENTRY 



DIRECTORY ENTRIES ACTIVE 



LIBRARY 
LIBRARY 
LIBRARY 
LIBRARY 



BLOCKS ALLCCATED 
BLOCKS ACTIVE 
BLOCKS DELETED 
BLOCKS AVAILABLE 



AUTOMATIC CONDENSE LIMIT 



LIBRARY ALLOCATED CYLINDERS 
DIRECTORY ALLOCATED TRACKS 



CORE- 


-IMAGE 




RELOCATABLE 


SOURCE- 


STATEMENT 










,,„., 








C 


H 


R 


E 


C 


H R E 


C 


H 


R E 


01 


00 


01 




64 


00 01 


101 


00 


01 


01 


02 


07 


11 


64 


01 02 00 


101 


00 


14 06 


01 


04 


08 


17 


64 


04 09 22 


101 


01 


16 09 


01 


05 


01 




64 


05 01 


101 


02 


01 


43 


00 


02 




83 


08 09 


142 


06 


07 


63 


09 


02 




100 


09 09 


149 


09 


16 


403 








230 




136 






1250 








3285 




7808 






827 








1745 




6630 






04 








00 




00 






419 








1540 




1178 






00 








4000 




6000 







EOJ CATALOG 



Figure 4U. SYSLST Output for Multiprogramming Sample Problems (Part 1 
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// JOS exECUTE SAHPLE FCREGROUND/BACKGRCUNO PROGRAH 

// ASSGN SYSOOl.X'OOC CARD READER 

// ASSGN SYS002tX'0CE' PRINTER 

// PAUSE CARD READER ENO-OF-FILE SIGNALS END OF CARD INPUT 

// EXEC CARDPRNT 



* THESE COHMENTS AND THE FOLLOMlNG STATEMENTS ARE TEST INPUT 

* NOW IN A PAUSE STATUSt UNASSIGN THE PRINTER (X'OOE'l AND THE CARD 

* READER IX'OOC) TO PERMIT SUBSEQUENT ASSIGNMENT TO FOREGROUND 

* AREA. TO DO THIS. TYPE THE FOLLOWING 

ASSGN SYSRORtUA IREUUIREO ONLY IF SYSROR ASSIGNED TO X*00C*1 
ASSGN SYSIPT.UA (REQUIRED ONLY IF SYSIPT ASSIGNED TO X'OOC i 
ASSGN SYSLST.UA (REQUIRED ONLY IF SYSLST ASSIGNED TO X'OOE') 

* TO SUSPEND BACKGROUND (BG) AREA PROCESSING. TYPE 
STOP 

* TO INITIATE PROGRAM NAMED CARDPRNT IN FOREGROUND 1 (Fll AREA. THE 

* FOLLOWING FOUR STATEMENTS ARE TO BE TYPED ON SYSLOG (1052) 
START Fl (THIS COMMAND IS PRCCESSED BY THE 1052 ATTENTION ROUTINE) 
ASSGN SYSOOltX'OOC* CARD READER 

ASSGN SYS002tX'00E' PRINTER 

EXEC CARDPRNT 



EOJ EXECUTE 



// PAUSE REFER TO PRIN' 
ASSGN SYSROR, UA 
ASSGN SYSIPT.UA 
ASSGN SYSLST.UA 



':R FOR ADDITIONAL INSTRUCTIONS 



* THESE COMMENTS AND THE FOLLOWING STATEMENTS ARE TEST INPUT 

* NOW IN A PAUSE STATUS. UNASSIGN THE PRINTER (X'OOE') AND THE CARD 

* READER (X'OOC) TS PERMIT SUBSEQUENT ASSIGNMENT TO FOREGROUND 

* AREA. TO DO THIS. TYPE THE FOLLOWING 

ASSGN SYSRORtUA (REQUIRED ONLY IF SYSROR ASSIGNED TO X'OOC) 
ASSGN SYSIPT.UA (REQUIRED ONLY IF SYSIPT ASSIGNED TO X'OOC) 
ASSGN SYSLST.UA (REQUIRED ONLY IF SYSLST ASSIGNED TO X'OOE') 

* TO SUSPEND BACKGROUND (BG) AREA PROCESSING. TYPE 
STOP 

* TO INITIATE PROGRAM NAMED CARDPRNT IN FOREGROUND 1 (Fl) AREA. THE 

* FOLLOWING FOUR STATEMENTS ARE TO BE TYPED ON SYSLOG (1052) 
START Fl (THIS CCNMANO IS PROCESSED BY THE 1052 ATTENTION ROUTINE) 
ASSGN SYSOOl.X'OeC CARD READER 

ASSGN SYS002. X'OOE* PRINTER 

EXE£ CARDPRNT 



Figure UU. SYSLST Output for Multiprograinniing Sample Problons (Part 5 
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Magnetic Character Readers 

The first 1412/1419 Magnetic Character Reader san^le problem processes 
500 docijments from one magnetic character reader using GET logic. The 
documents are read into pocket 3 in groups of approximately 50. After 
each group is read, the 1U12/1419 Magnetic Character Reader is 
disengaged, the hatch number is updated, and the pocket light is turned 
on. All documents are listed on the printer. If the Selective Tape 
List feature is present on the printer, the documents are listed on the 
leftmost tape. The controls on the magnetic character reader that must 
be depressed, if present, are: BATCH NUMBER ON, PROG SORT, and at least 
one field for the VALIDITY CHECK S. READ OUT control. 

The second 1U12/1419 Magnetic Character Reader sample problem 
processes 250 documents from each of two magnetic character readers, 
(both of the same type: both with a single address adapter or both with 
a dual address adapter), using READ, CHECK, and WAITF logic. The only 
controls that must be depressed are PROG SORT and at least one field for 
the VALIDITY CHECK, € READ OUT control. Documents from one reader are 
selected into pockets one or zero depending on whether or not the 
selected field is present. Documents read in error are rejected and all 
data is listed on a printer. If the Selective Tape List feature is 
present on the printer, data is printed on the leftmost tape. 

Documents from the second reader are selected according to a digit in 
the field read and printed on SYSLST. If manual intervention is 
required on the second reader, a message is printed on SYSLOG. The 
message is: 

INTERVENTION REQUIRED ON FILE2 . 

The program names are Z.MCRl and Z.MCR2. The 1412/1419 sample 
problems support the 1259. 

Instructions show how to remove the following optional features: 

1. Dual addressing adapter feature 

2. Batch numbering 

3. Pocket lights 

4- Selective Tape List Feature (Printer) 

The SYSLOG output is shown in Figure 17. The SYSLST output in Figure 
45 contains: 

• Job control cards 

• External symbol dictionary 

• Source program listing 

• Relocation dictionary 

• Linkage editor input diagnostics 

• Linkage editor storage map 

• Document data listings 

• EOJ MCR 

• // PAUSE END OF MCR SAMPLE PROBLEMS 
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// JOB MCR SAMPLE PROBLEMS 
// ASSGN SVS005.X'004' 
// ASSGN SYS006,X'005' 
// ASSGN SYS009,X'012' 
// OPTION LINK.NOXREF 
// EXEC ASSEMBLY 



EXTERNAL SYMBOL DICTIONARY 



SYMBOL TYPE ID ADDS LENGTH LD ID 



IJU0Z?2Z 
IJUJZZZZ 
IJDFS2ZZ 
IJDFSZZZ 



PC 01 00000& C02834 



SO 03 C02838 C004BC 



SO C5 0C2CE8 000028 



MCRl SAMPLE PROBLEM 



LOC OBJECT CODE 



ADDHl ADDR2 STMT SOURCE: STATEMENT 













2 




PRINT 


NCGEN 


000000 


0540 








3 


START 


BALR 


*.C 


000002 










4 
5 




USING 
OPEN 


*,4 
FILFl.FILE 


000016 


5850 


42AE 




00280 


14 
15 


NEXT 


L 
GET 


POCNT.TOTOOC 
FILF 


000026 


9101 


42 AC 


002AE 




20 




TM 


DISSw.X'Ol' 


00002A 


4710 


4066 




00068 


21 




BO 


OiSFNfi 


00002E 


9110 


2000 


ooooo 




22 


niSCCM 


TM 


C(2).XM0' 


000032 


4710 


407E 




00080 


23 




BO 


LITE 


000036 


9108 


2000 


00000 




24 




TM 


C(2),X'0b' 


00003A 


4710 


4018 




OOOIA 


25 




BO 


NEXT 


00003E 


4650 


4044 




00046 


26 


LASDOC 


BCT 


OUCNT.MVC 


000042 


47F0 


4092 




00094 


27 




B 


F0>= 


000046 


0209 


422F 2C56 


C0230 


00056 


28 
29 
37 


MVC 

* OMIT 


MVC 

PUT 

•STLSP= 


AREAU 101, 861 2 
FILei,STLSP = BK 
bKT' PAKAMETER 


030064 


4 7F0 


4018 




OOOIA 


3e 
39 


OISENG 


B 
DISEN 


NEXT 
FILE 


000074 


9230 


42A9 


0C2AR 




44 




MVI 


CTR+1,X"3C' 


000078 


9200 


42AC 


002AF 




45 




MVl 


DISSW.X '00' 


00007C 


47F0 


402C 




0002E 


46 




B 


DISCOM 


000080 










47 
48 


LITE 


EOU 
LITE 


FILF. SWAP FA 












54 


* 


REMOVE ABOVE STATFMF 


000090 


47F0 


403C 




oro3F 


55 




B 


LASDOC 


000094 


0201 


4032 409C 


0C034 


0C09E 


56 


EOF 


MVC 


DISCG'-(+6( 2l,Fn 


00009A 


47F0 


4066 




00068 


57 




B 


DISENG 


0Q009E 


4C9E 








58 
59 

68 


EOJADO 
EOJ 


DC 

CLOSE 

FOJ 


SIEOJI 
FILEl.FILE 



OPEN ALL FILES 
INITIALIZE DOCUMENT COUNTER 
GET DOCUMENT FROM MICR DEVICE 
DISENGAGE 
YFS 

RFflOY l^OR POCKET LIGHT 
YES 
IF INT. KFgb.. RE-ISSUE GET 

DECREMENT DUCUMENT COUNTER 

) MOVE DATA TO OUTPUT AREA 

T PRINT 

IF SELECTIVE TAPE LIST FEATURE NOT PRE 

DISENGAGE MICR DEVICE 
REINITIALIZE DOCUMENT COUNTER 
RESET DISENGAGE SWITCH 



LIGHT POCKET SPECIFIED IN SWARF4 
NT IF POCKET LIGHT FEATURE IS ABSENT 



JADD ALTER EOJ BRANCF 



STACKER SELECTION ROUTINE 



0000B4 

0000B4 923F 7004 

000088 4320 51F7 

OOOQBC 4520 5014 

OOOOCO 9601 5IFA 

0000C4 9680 7001 

0000C8 4220 51F7 







74 




USING 


*.5 


00004 




75 


USSR 


MVI 


4(71 




002AB 


76 




IC 


2.CT 




000C8 


77 




BCT 


2. NO 


002AE 




78 




QI 


DISS 


00001 




79 




01 


1(71 



1' TURN ON DISENGAGE SWITCH 

• UPDATE BATCH NUM3ERER 

REMOVE ABOVE STATEMENT IF BATCH NUMBERING NOT AVAILABLE 

STC 2,CTR+1 

EXIT MR 

DROP 5 

DTFMR- BUFFERS=100, 
EXTA00R=USSR, 
I0AREA1 = AREA, 
DEVAODR=SYS005, 
PECSIZE=80, 
I0REG=2. 



DOS CL3-C C3/12/6<i 



L477C002 
L4770003 
L4770004 
L4770005 
L47700P6 
L4770007 
L47700C8 
L4770009 
L477001C 
L477C011 
L477CC12 
L4770013 
L477CC14 
L47700I'i 
L477C015 
L477C017 
SENT L4770018 
L4770019 
L477C020 
L4770021 
L4770022 
L4770023 
L4770024 
L4770025 
L477eC26 
L4770027 
L4770C?fl 
L477C029 
L4770030 
L4770031 
L477C032 
L4770033 
L4770034 
L4770035 
L4770036 
L4770037 
L4770038 
L4770039 
L477004C 
L4770041 
L4770042 
L4770043 
L477C044 
L4770045 
L477C046 
XL4770047 
XL4770048 
XL4770049 
XL4770050 
XL4770051 
XL4770C52 
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%',n 


4CK1 SAMPLE 


PRnBLi=M 










PAGE 2 






L ;ic 


v,j=:t cnDc 


AOQRl 4D0R2 


STMT 


SOURCE 


STATFMEMT DOS CL3-0 03/12/69 


















AOORESS=nUAL, REMOVE |F DUAL A04PTFR NOT PRESENT 


XL4770053 


















SFCAnDR=SYSC06, RF10VE IF DUAL ADAPTER NOT PRESENT 


XL4770054 


















ADiDAR EA=10 


L4770055 














157 




MR>IQD AODRESS=DUAL, flUFFFRS=ioo 


L4770056 














521 


* 


IF DUAL ADDRESSING ADAPTER FEATURE IS ABSENT, 


L4770057 














522 


* 


RE'-invF ( 40DR6SS = DUAL 1 PARAMETER FROM THE 48nVE STATEMENT. 


L4770058 














523 


FILFl 


DTFPR DEVAD'^R=SYSCOO, 

STLIST=YES, REMOVE IF NO SELECTIVE TAPE FEATURE PRESENT 
IOARtAl=AREAl 


XL4770a59 
XL4770060 
L4770061 














545 




PRMOD 

STLIST = YES. REMOVE IF NO SELFCTIVE TAPE FEATURE PRESENT 
RECFQRM=F IXUNB 


XL4770062 

XL4770063 

L4770064 






O0C21O 








613 




LTORG 


L4770065 






o:o2ic 


SB5BC2D607C5D540 




ol4 




=C'S1R0PEN • 








000216 


5H5riC'C3T3D6f 2C5 




615 




=C' itBCLOSF' 








Q0022C 


nrooccoc 






nl6 




= A( FILE) 








00"224 


"|~0-1C106 






617 




= A( FILEII 








00';2?8 


''0000249 






618 




= A( RKTt 








:0022C 


000CC24r, 






619 




= A( Sl^AREA I 








000005 








620 


r)QC"JT 


EOU 5 DOCUMENT COUNTER 


L4770066 






000230 


4C404C4C'»04C4040 




621 


ARE41 


DC 121CL1' • OUTPUT AREA 


L4770067 






000249 


01 






622 


BKT 


DC X'Ol" SELECTIVE TAPE LISTER TAPE INDICATOR 


L4770068 






000244 


0030 






62 3 


CTR 


OC H'48' DOCUMFNT COUNTER 


L4770069 






00024C 


0400 






624 


SiVARFA 


DC X"04C0" POCKET SELECTION FOR POCKET LIGHTING 


L477G070 






O0024F 


00 






625 


DISSW 


DC X'OO' DISENGAGE SWITCH 


L4770071 






O0C24F 


00 


















C 10280 


0C0001P4 






626 


TDTOnC 


DC F"500' TOTAL NO. OF DOCUMENTS TO BE RE4D 


L4770072 






o^n7^4 








627 


AREA 


DS CL960'^ MICR INPUT 4RE4 


L4770073 




— - 


CJOOOO 









628 


END 


START 


L4770074 




- 











--- 




RELOCATION DICTIONARY 


PAGE 1 







PTS.ID tfFL.IO 


FL4GS 


4DDRFSS 














01 


01 


r-C 


OOOOOC 














01 
01 


01 
01 


OC 
OC 


OOOOIC 
0CC046 














01 


01 


OC 


OOCOAC 














01 


01 


OC 


000"D8 














01 


02 


18 


QOCOFl 














01 


01 


OC 


000108 














01 


01 


08 


000129 














01 


01 


08 


0C012D 














01 


01 


OC 


000130 














01 


01 


OC 


O0C134 














01 


01 


OC 


000138 














01 


01 


OC 


000144 














01 


01 


OC 


00C14C 














01 


01 


OC 


000150 














CI 


01 


or 


00015C 














01 


01 


08 


000171 














01 


01 


08 


000179 














01 


01 


08 


00C181 














01 


01 


08 


000189 














01 


01 


08 


000191 














01 


01 


08 


000199 














01 


01 . 


08 


OOClAl 














01 


01 


08 


0001A9 














01 


01 


08 


OOOIHI 














01 


01 


08 


0001B9 














01 


01 


08 


OOOICI 














01 


01 


08 


0001C9 














01 


01 


08 


OOOIDI 














03 


03 


08 


002CA1 














03 


03 


08 


002C49 














01 


01 


OC 


OOOIEO 














01 


04 


18 


0001E9 














01 


01 


OC 


OOOIFO 














01 


01 


08 


C0C201 














01 


01 


08 


000209 














01 


01 


OC 


000220 














01 


01 


OC 


000224 














01 


01 


OC 


000228 














01 


01 


OC 


00022C 
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// EXEC LNKEDT 



DISK LINKAGE EDITOR DIAGNOSTIC OF INPUT 



ACTION TAKEN 
LIST ENTRY 



06/19/68 PHASE XFR-AD LOCORE HICORE DSK-AD ESD TYt>t LABEL LQAOEO REL-FR 

PHASE*** 004000 OOAOOO 006C9F 15 04 3 CSECT 004C00 004000 

CSECT IJUDZZZZ 006830 004000 

CSECT IJDFSZZZ 006C78 004000 



000009437* 
000529816* 
000002642* 
000009437* 
000009437* 
000529816* 
000009437* 
000009437* 
000002642* 
000002642* 
000002642* 
000009437* 
000002642* 
000002642* 
000002642* 
000002642* 
000002642* 
000002642* 



000002642* 
000002642* 
000009437* 
000002642* 



NOTE : This is a portion of the tope output for MCR1 . 



000009437* 
000529816* 
000009437* 
000002642* 
000002642* 
000002642* 
000002642* 
000002642* 
000002642* 
000002642* 
000002642$ 
000002642* 
000002642* 
000009437* 
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// PAUSE END OF MCRl 














// ASSGN SYS007,X'006' 














// EXEC ASSEHBLY 


_ 






^ 










--- 










EXTERNAL 


SYMBOL DICTIONARY PA 


GF 1 




SYMBOL TYPE 10 


AODR LENGTH LD 


ID 














PC 


01 


OOCOOO 003928 














IJUOZZZZ ER 02 
















IJDFSZZZ ER 03 
















IJDFZZZZ FR Oii 
















IJUDZZZZ SO 05 


003928 0004BC 














IJDFSZZZ SO 06 


003DD8 000028 














IJDFZZZZ SD 07 


O03F00 000028 














IJ2H0C26 SD 08 


003E28 OOOOIA 














S477 


MCR2 


SAMPLE PROBLEM 












PAGE I 





LOC 


OBJECT CODE ADDRl ADDR2 


STMT 


SOURCE 


STATEMENT DOS CL3-0 


C3/12/69 












2 




PRINT 


NOGEN 


»47700C2 




030000 


0540 






3 


START 


BALR 


4,0 


$4770003 




000002 








4 

5 




asiNG 

OPEN 


*.4 

FILEl, FILE2,FILE3,FILE4 OPEN ALL FILES 


t47700C4 
$4770005 




OOOOIF 


5850 


44 7A 


0047C 


16 




L 


D0CNT1,TUT00C INITIALIZE FILEl DOCUMENT COUNTER 


$4770006 




000022 


1865 






17 




lR 


DOCNT2.D0CNT1 INITIALIZE FILE2 DOCUMENT COUNTER 


$4770CC7 












18 


NEXT 


READ 


EILE1,MR GET DOCUMENT FROM FIRST MICR^EVICF 


$4770008 












23 




CHECK 


FILFl, NEXTl IS DOCUMENT READY FOR PROCESSING 


$4770009 




000040 


465C 


404E 


00050 


29 

30 




BCT 
DISEN 


C0CNT1,MVC1 DECREMENT DOCUMENT COUNTER FOR FILEl 
FILEl DISENGAGE Fltfl 


$4770010 
$4770011 




oaooso 


n209 


44 7E 


2C10 00480 00010 


35 
36 


MVCl 


MVC 
PUT 


AREA! 10), 16( 21 MOVE DATA TO OUTPUT AREA 
FILE3,STLSP=CNTADI PRINT 


$4770012 
$4770013 












44 


* OMIT • 


STLSP= 


CNTADl' PARAMETER |F NO SELECTIVE TAPE FEATURE 


$4770014 












45 


NEXTl 


READ 


FILE2,MR GET DOCUMENT FROM SECOND MICR DEVICF 


$4770015 












50 




CHECK 


FILE2,NEXT2 IS DOCUMENT READY FOR PROCESSING 


$4770016 




OOOOSA 


4660 


4098 


0009A 


56 
57 




BCT 
DISEN 


DOCNT2,MVC2 DECREMENT DOCUMENT COUNTER FOR FILE2 
FiLE2 DISENGAGE FILE2 


$4770017 
$477C018 




00C09A 


D263 


45CA 


3006 0050C 00006 


62 
63 


MVC2 


MVC 
PUT 


PRNTARI IOC), 61 3) MOVE DATA TO OUTPUT AREA 
FILE4 PRINT 


$4770019 
$4770020 












68 


NEXT2 


W A I T F 


FILEl, FILE2 ANY MICR FILES ACTIVE 


$4770021 




ooooco 


47F0 


4022 


00024 


77 




B 


NEXT YES 


$4770022 




0000C4 


18E0 






78 


ERROUTl 


LR 


14,0 INITIALIZE RETURN REGISTER 


$4770023 




0000C6 


9130 


2000 


00000 


79 




TM 


0(2),X'30' UNRECOVERABLE I/O ERROK OR ALL DOCS PROCESSED 


$4770024 




OOOOCA 


4770 


40FE 


OOOFO 


80 




BNZ 


CLOSEl YES 


$4770025 




oaoocE 


07FE 






81 




BR 


14 RETURN TO NEXT READ 


$4770026 




OOOODO 


18A0 






82 


ERR0UT2 


LR 


RETURN, C INITIALIZE RETURN REGISTER 


$4770027 




000002 


■3130 


3000 


00000 


83 




TM 


C(3),X'30' UNRECOVERABLE I/O ERROR OR ALL DOCS PROCESSED 


$47 700 28 




0000D6 


4770 


4106 


00108 


84 




BNZ 


CLQSE2 YES 


$4770029 




OOOOOA 


'»1C8 


3000 


00000 


85 




TM 


0(31, X'08' INTERVENTION REQUIRED 


$4770030 




OOOCOF 


07EA 






86 
87 




BCR 
PUT 


14, RETURN NO 
MSGWRT 


$4770031 
$4770032 




OOOOEC 


07FA 






92 




BR 


RETURN 


$4770033 












93 


CLOSEl 


CLOSE 


FILEl CLOSE FILFl 


$4770034 




OOOOFE 


9601 


446F 


0C471 


101 




01 


CL0SI0,X'C1' SET FILEl CLOSED INDICATOR 


$4770035 




000102 


47F0 


4118 


OOllA 


102 




B 


ENDTST 


$4770036 












10 3 


CL0SE2 


CLOSE 


F1LF2 CLOSE FILF2 


$4770037 




000116 


9602 


446F 


00471 


HI 




01 


CL0SI0,X'02' SET FILE2 CLOSED INDICATOR 


$4770038 




000 UA 


9103 


44 6F 


00471 


112 


ENDTST 


TM 


CL0SI0,X'C3' BOTH FILES CLOSED 


$4770039 




OOOllE 


47E0 


4022 


00024 


113 
114 
123 
126 




BNQ 

CLOSE 

EOJ 


NEXT NO 

FILE3,FUE4 CLOSE PRINTER FILES 


$4770040 
$4770041 
$4770042 
$4770043 












127 


* 


STACKER SELECTION ROUTINE FOR FILEl 


$4770044 












128 


« 






$4770045 




000138 








129 




USING 


*,5 


$4770046 




000138 


91 OC 


7002 


00002 


130 


USSRl 


TM 


2(7),X'0C' DATA CHECK OR OVERRUN 


$4770047 




000 13C 


4770 


5022 


0015A 


131 




BNZ 


DERRl YES 


$4770048 




000140 


0509 


533A 


7010 C0472 00010 


132 




CLC 


BLANK! 10) , 16( 7) IS FIELD BLANK 


$4770049 




000146 


4770 


5CIA 


00152 


133 




BNE 


PKTl NO 


$4770050 




00014A 


92 OF 


7CC4 


00004 


134 




MVI 


4(7),X'0F' SELECT POCKET ZERO. 


$4770051 




O0014E 


47F0 


5026 


0015E 


135 




B 


EXITl 


$4770052 
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1477 


MCRZ SAMDLt PRQBLE'^ 












PAGE 2 




LUC 


JBJFCT CQOE AODRl 


aD0K2 


STMT 


SOUkCE 


STATE 


1ENT DOS rL3- 


03/12/69 




000152 


921F 7C04 00004 




136 


PKTl 


MVI 


4(71. X'lF' SELECT POCKET ONE 


I4770Cb3 




000156 


47F0 5026 


0015E 


137 




B 


FXITl 


J477C054 




00015A 


92CF 7004 00004 




138 


OFRRl 


■^VI 


4(71. X'CF' SELECT REJECT POCKET 


44770C55 










139 


EX ITl 


EXIT 


CR 


f4770C5t 










142 


* 






t4770057 










143 


* 


STACK 


= R SELECTION RnuTIME i=OR FILE2 


S477C"58 










144 


* 






1477riC'59 




000160 






145 




USING 


*.5 


t477C060 




000160 


91 OC 70C2 00002 




146 


USSR2 


TM 


2(71, X'CC' DATA CHECK OR OVCRRU^l 


S4770061 




000164 


4770 5C22 


00182 


147 




BNZ 


REJECT YES 


44770062 




000168 


95F9 7C62 00062 




148 




CL I 


98( 71,X<F9' 


S477C063 




00016C 


4720 5022 


00182 


149 




8H 


REJECT IS DATA A DlblT 


t4770P:64 




000170 


95F0 7062 00062 




150 




CLI 


98(71. X'FC 


14770065 




000174 


4740 5022 


00182 


151 




BL 


REJECT 


1477^066 




000178 


F200 70C4 7062 00004 


00062 


152 




PACK 


4(1,71.98(1.71 SELECT POCKET ACCORDING DIGIT OM DOC 


. 44770067 




00017E 


47F0 5026 


00186 


153 




B 


EXIT2 


$4770068 




000182 


92CF 7004 00004 




154 


REJECT 


MVI 


4(71. X'CF' SELECT REJECT POCKET 


$4770069 










155 


EXIT2 


EXIT 


MB 


44770070 










158 




DROP 


5 


*477CG71 










159 


* 






$4770072 










160 


FILEl 


OTi=MR 


0EVADDR=SYS005, 

AODRESS=OUAL. REMOVE IF DUAL ADDRESSING ADAPTER ABSENT 

ADDAR EA = C. 

I0RFG = 2. 

I0AREA1=AREA1. 

RECSIZE=2C. 

FRR0PT=ERR0UT1. 

EXTADDR=USSB 1. 

SECADDR=SYS006. REMOVE IF DUAL ADDRESS ADAPTER ABSENT 

BUFFERS = 100 


X$4770073 
X$4770074 
X$477C075 
X$4770076 
X$4770077 
X$477C078 
X$477C079 
X$4770080 
C$4770081 
$4770082 










230 


F1LE2 


OTFMR 


DEVADDR=SYS007. 

ADDRFSS=DUAL, REMOVE IF DUAL ADDRESSING ADAPTER ABSENT 

RECSUE=e0. 

IDAREA1 = AREA2, 

I0REG = 3, 

ADDAREA=2C. 

EUFFERS=ieO, 

ERR0PT=ERR0UT2. 


X$47700B3 
X$4770084 
X$4770085 
X$477G0«-'> 
X$4770087 
X$4770088 
X$477C0a9 
XJ477C090 
















SECA0DR=>SYS008. REMOVE IF DUAL ADDRESS ADAPTER ABSENT 
EXTADDR=USSR2 


C$4770091 
$4770092 










300 


FILE3 


DTFPR 


OEVADDR=SYS009, 

STLIST=YES. REMOVE IF NO SELECTIVE TAPE FEATURE PRESENT 

I0AREA1=APEA 


X$4770C93 
X$4770094 

$4770095 










322 


FILE4 


OTFPR 


OEVADDR^SYSLST, 
I0AREA1=PPNTAR 


X$4770096 
$4770097 










343 




MRMOD 


ADDRESS = DUAL, BUFFERS' 100 


$4770098 










707 


* 


REMOV 


= ( ADDRESS = DUAL 1 PARA^fETER FROM THE ABOVE STATEMENT. 


$4770099 










70 8 


« 


IF DUAL ADDRESSING ADAPTER FEATURE IS ABSF^NT, 


$4770100 










709 




PRMOD 


STLIST=YES. REMOVE IF NO SELECTIVE TAPE FEATURE 


X$4770101 
X$4770102 
















RECFORM=FIXUNB 


$4770103 




4477 


MCR2 SAMPLE PROBLEM 
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LOG 


OBJECT CQDF ADDRl 


ADDR2 


STMT 


SOURCE 


STATEMENT DOS CL3- 


03/12/69 










777 




PRMOD 


RECFORM'F IXUNB 


$4770104 










844 


MSGWRT 


DTFCN 


ELKS IZE = 3 2.DEVA0DR = SYSL0G, 10 ARE A 1 =ME S SG , TYPCF LE =OUTPUT 


$4770105 




000420 






888 




LTORG 




$4770106 




000420 


5B5BC2D6D7C5054C 




889 






=C'itBOPEN • 






000428 


5B5BC2C313D6E2C5 




890 






=C' ttBCLOSE' 






000430 


00000188 




89 1 






= A( FILEll 






000434 


00000C6E 




892 






= A(NEXT11 






000438 


00000398 




89 3 






= A(FILE31 






00043C 


000C0470 




894 






= A(CNTA011 






000440 


00000290 




895 






= A(FILE2I 






000444 


OOCOOOAC 




896 






= A(NEXT2) 






000448 


00000300 




897 






= A(FILF4) 






00044C 


OC000400 




898 






=A(MSGWRT 1 






000005 






899 


DGCNTl 


EOU 


5 DOCUMENT COUNTER FOR FILEl 


1477C107 




000006 






90 


DOC NT 2 


EOU 


6 DOCUMENT COUNTER FOR FILF2 


$4770108 




OOOOOA 






901 


RETURN 


EOU 


10 


$4770 109 




000450 


4CC905F3C5D9E5C5 




902 


MESSG 


DC 


C INTERVENTION REQUIRED ON FILE2 ' 


$4770110 




000470 


01 




90 3 


CNTADl 


DC 


X'Ol' SELECTIVE TAPE LIST TAPE INDICATOR 


$4770111 




000471 


CC 




904 


CLQSID 


DC 


X'OO' CLOSED INDICATOR 


$4770 1 12 




000472 


OOOOOCCOOOCOOOOO 




905 


BLANK 


DC 


lOX'OO' 


$4770 113 




00047C 


OOOOOOFA 




906 


TOT DOC 


DC 


F'250' TOTAL NO. OF DOCUMENTS TO BE READ 


$4770114 




000480 


404040404 04 C4 040 




907 


AREA 


DC 


140C' ' OUTPUT AREA FOR FILE3 


$4770115 




00050C 


4040404040404040 




908 


PRNTAR 


DC 


1400' ' OUTPUT AREA FOR FILE4 


$4770116 




000598 






909 


AREAl 


OS 


CL2600 INPUT AREA FOR FILEl 


$477"117 




OOOFCO 






910 


AREA2 


OS 


CL10600 INPUT AREA FOR FILE2 


$4770118 




OCOOOO 





r— ^ 


911 




END 


START 


$4770119 



Figure U5. SYSLST Output for 1U12/1U19 Sample Problems (Part 5 of 7) 



208 IBM S/360 DOS Sys. Gen, and Maint. 











^ELCCATIJM OIGTIONARV 


PAGE 1 


POS.IO 


REL.IU 


FLAGS 


ADDPtsS 






01 


01 


oc 


OOCO"C 






01 


01 


oc 


OOOOIC 






CI 


01 


cc 


000014 






01 


01 


oc 


000016 






01 


01 


oc 


000OB8 






01 


01 


oc 


OOGOBC 






01 


CI 


oc 


0000F8 






01 


01 


oc 


OOCllC 






01 


01 


oc 


00012C 






CI 


01 


oc 


O0C13C 






01 


01 


oc 


00019C 






01 


0? 


18 


00Cia9 






01 


01 


oc 


OO&ICO 






01 


01 


08 


OOOIFI 






01 


01 


08 


0001F5 






01 


01 


oc 


0001F8 






01 


01 


oc 


OOCIFC 






01 


01 


oc 


OOCIFQ 






01 


01 


oc 


OOOIFC 






01 


01 


oc 

_ nr__ — 


000204 


. 









^ul " 


^ 01 


Uo 









01 


01 


08 


0002ED 






CI 


01 


oc 


0002FC 






01 


01 


OC 


0002F4 






CI 


01 


oc 


0002FB 






01 


01 


OC 


000304 






01 


01 


oc 


00030C 






01 


01 


oc 


00031C 






01 


01 


oc 


00031C 






01 


01 


08 


000331 






01 


01 


08 


000339 






01 


01 


08 


000341 






01 


01 


08 


00C349 














RELOCATION OICTITNARV 


PAGE ? 


PGS.in 


KEL.ID 


FLAGS 


ADDR'^SS 






01 


01 


08 


000361 






01 


01 


08 


000359 






01 


CI 


08 


000361 






01 


01 


08 


000369 






01 


01 


08 


000371 






01 


01 


08 


000379 






01 


01 


08 


000381 






01 


01 


08 


000389 






01 


PI 


08 


00C391 






01 


01 


OC 


0C03A0 






01 


03 


18 


0003A9 






01 


CI 


CC 


0003BC 






01 


01 


08 


0CC3C1 






01 


CI 


08 


0003C9 






01 


01 


OC 


0003D8 






01 


04 


18 


0003E1 






01 


01 


OC 


0003E8 






01 


01 


08 


0003F9 






05 


05 


C8 


003D91 






05 


05 


08 


003 D99 






01 


CI 


OC 


000408 






01 


08 


08 


000411 






01 


CI 


08 


000419 






01 


01 


OC 


000430 






01 


01 


OC 


000434 






01 


01 


OC 


000438 






01 


01 


OC 


00043C 






01 


01 


OC 


000440 






01 


01 


OC 


000444 






01 


01 


OC 


000448 






01 


01 


OC 


00044C 
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// EXEC LNKEOT 



DISK LINKAGE EDITOR DIAGNOSTIC OF INPUT 



PHASE XFR-AD LOCORE rilCORE DSK-AD ESD TYPE LABEL LOADED REL-FR 

PHASE*** 004000 004000 007D09 15 06 2 CSECT 004000 004000 

CSECT IJUDZZZZ 007928 0C4000 

CSECT IJOFSZZZ 007D70 004000 

CSECT IJOFZZZZ 007D48 004000 

CSECT IJ2M0026 007DC0 004000 



129010007155458. 3210i0001334469t 
) 29010007) 559 17, 3210*0001334469$ 
12836140715283691407, 5283SS283691407$ 
I 28361407 1 528369 1407, 5283*5283691407$ 
I 28351407 1 528369 1407, 5283*5283691407* 
) 28361407 15283691407, 5283*5283691407* 
128361407)5283691407,5283*5283691407* 
) 28361407) 5283691407, 5283*5283691407* 
)28361407) 5283691407, 5283*5283691407* 
) 28361407)528369 1407, 5283*5283691407* 
) 28361407 1 5283691407, 52835283691407* 
) 28361407 ) 52839 1407, 5283*5283691407* 
) 28361407) 5283691407, 5283*5283691407* 
) 12346789)0123456789, 0123*0123456789* 
) 2836 1407) 528369 1407, 5283*5283691407* 
) 28361407) 5283691407, 5283*5283691407* 
) 28361407 ) 5283691407, 5283*5283691407* 
) 28361407) 5283691407, 5283*5283691407* 
) 28361407) 528369 1407, 5283*5283691407* 
) 28361407) 528369147, 5283*5283691407* 
) 2361407) 5283691407, 5?53*5283691407* 
) 28361407) 5283691407, 5 W3*5283691407* 
) 28361407) 5283691407, 5i£83t 5283691407* 
) 06131009)0000061757, 8801*0000013104* 
) 05020991) 0000091 132, 8031«0012000000« 
) 05020991) 00000911 32, 8031*0012000000* 
) 05020991)00000911 32, 8031*0012000000* 
) 05020991)00000911 32, 8031*0012000000* 
) 05020991) 000009 11 32, 8031*0012000000* 
) 05020991) 00000911 32, 8031*0012000000* 
) 05020991) 00000911 32, 8031*0012000000* 
) 05020991)0000091132, 8031*0012000000* 
) 05020991) 0000091 132, 8031*0012000000* 



END OF MCR SAHPI F PROBLPMS 
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Optical Readers 

The 1285 sample problem is obtained by retrieving the sample problem for 
the 1287 journal tape mode of operation (Z.ORJT) and changing the cards 
with the sequence numbers 1058 and 1077 as follows. For both cards 
change the parameter DEVICE=1287T to DEVICE=1285. (Refer to listing 
containing the source statements for the sample test program for journal 
tape processing.) 

The sample problem illustrating document processing for the 1287 
Optical Reader (Z.ORDC) reads documents for data input into an input 
area, and then prints this data on SYSLST. Whenever the 1287 document 
hopper empties, press end-of-file or replenish the stack. 

Any approved document type may be used because the reference mark and 
data field coordinates are entered at program execution time. However, 
the data field chosen to be read may not exceed six characters in 
length. 

Figure 19 is a sample input document, and Figure 46 is the SYSLST 
output listing for document mode processing. The listing contains 
exanples of keyed- in error corrections identified by comments. 

The sample problem illustrating journal tape mode processing for the 
1287 or 1285 Optical Readers reads undefined records from the 1287 or 
1285 Optical Reader into a work area from two I/O areas, and then prints 
these records on SYSLST. 

Any journal tape with a maximum record size of 38 characters is 
suitable for this sample problem. 

Figure 20 is a portion of a sample input journal tape, and Figure U7 
is the SYSLST output listing for journal tape processing. 

The SYSLST output in Figures 46 and 47 contain: 

• Job control cards 

• External symbol dictionary 

• Source program listing 

• Relocation dictionary 

• Linkage editor input diagnostics 

• Linkage editor storage map 

• List of fields read from documents (if sample problem for document 
processing was used) . 

or 
Journal tape listing (If sample problem for journal tape processing 
was used.) 

• EOJ Optical Reader 

• // PAUSE END OF SAMPLE PROBLEM 
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// JOB CPlir.M RTfCEP 
// ASSGN SYSOOg.X'CS";' 
// CPTITN LINK.NOXREF 
// EXEC ASSEMBLY 



SAMPLE PROELE^I 



iY^bi L DICTirK'/>RV 



SYMBOL TYPE ID AODR LENGTH LD ID 



SAMPLE 
IJMFCZnZ 
TJMFCZDZ 
IJMFZZDZ 
I JDFZZZZ 
I jnFZZZZ 



SD 01 COCOOO C:0600 



03 00C600 0006CC 
000600 



50 05 COCCOC CPCOIA 





"~ 














' " 










SAMPLE 


TEST PROGRAM FOR 


DOCUMENT PROrrSSINb 








LOG 


CRJECT CODE 


ADDBl 


A0DR2 


STMT 


SOURCE 


STATEMINT 


DCS CL3- 


-0 














2 




PRIfJT 


NOGEM 




$4780002 


000000 












3 


SAMPLE 


START 






$478C003 


000000 


0530 










4 


BASERG 


BALR 


3,0 




$4780004 


000002 












5 
6 




USIM^^ 
OPEN 


*,R3 
DRDTF.PRLTE 


OPEN ORFILF,PRINTFILE 


$4780005 
$47800C6 


000016 


9240 


3472 




00474 




15 




MVI 


DATAPRT.C • 


CLEAR 


$47eCCC7 


OOOCIA 


D277 


3473 


3472 


00475 


00474 


16 
17 

22 




MVC 
PUT 
GET 


nATAPRT+1 (120),0ATAPBT 

CNDTF 

CNDTF 


OUTPUT AREA 
WRITE MSG ON SYSLPG 
PFAO 16 CHARS INPUT 


$4780008 
$478C0C9 
$478CC1C 


O0OC38 


58B0 


3242 






00244 


27 




L 


R11,=F'4' 


LOAr Rll WITH LOOP CNTR 


$4780011 


00003C 


0700 










28 




CNOP 


2,4 




$4780012 


00003E 


D203 


3456 


33CE 


00458 


CC3D0 


29 


ALTERl 


MVC 


BEGIN(4),CALBRTNS 


MOVE 4 BYTES AT A TIME 


$4780013 


000044 


58A0 


3C3E 






00040 


30 




L 


R10,ALTEPl+2 


INCR ABOVE DISPLACE BY 


$4780014 


000C48 


5AA0 


3242 






00 244 


31 




A 


R10,=F'4' 


FOUR EYTES AND STORE 


$4780015 


00004C 


50A0 


303E 






0C040 


32 




ST 


Rla,ALTERl+2 


BACK 


$4780016 


000050 


DC03 


3456 


335C 


0C458 


0035E 


33 




TP 


BEGIN, TABLFO-193 


CCNVFRT 4-RYTE 


$478CC17 


000056 


F233 


345A 


3456 


0C45C 


00458 


34 




PACK 


T0(4) ,RFGIN(4) 


UNPACKED FIELD TO TWO 


$4780018 


00005C 


5820 


345A 






0045C 


35 




L 


R2,T0 


BYTE-LEFT-ADJUSTFO 


$4780019 


000060 


8820 


0004 






0C004 


36 




SRI 


R2,4 


PACKED FIELD 


$4780020 


000064 


8920 


0010 






00010 


37 




SLL 


R2,16 


IN R2 


$4780021 


000068 


5020 


3462 






00464 


38 




ST 


R2,SAVE 


STORE 2 PACKED BYT^S IN SAVE 


$4780022 


0C006C 


0700 










39 




CNOP 


2,4 




$4780023 


OOOC^E 


020 1 


3226 


3462 


00228 


C0464 


40 


ALTEP2 


MVC 


LNDMRK1(2) .SAVE 


NQVE TWO BYTES INTO COORDNTS 


$4780024 


000074 


58A0 


306E 






00070 


41 




L 


R10,ALTEP2+7 


IKCR DISPLACEMENT OF FILDMRKl 


$4780025 


000078 


5AA0 


345F 






00460 


42 




A 


PIO, CONST 


BY TWO AMD THEN 


$4780026 


00007C 


50AO 


306F 






00070 


43 




ST 


P10,ALTER2+2 


RESTttRE INTO INSTRUCTION 


$4780027 


0O0C8O> 


46B0 


303C 






0003E 


44 

46 
47 


* 


BCT 


Rll, ALTERl 


LOOP BACK TO ALTERl 


$4780028 

$4780030 
$4780031 














48 


READDOCS 


READ 


ORDTF,OR,CCWADR 


READ DOCUMENTS 


$478C032 














54 




HAITF 


ORDTF 


WAIT I/O 


$4780033 


OOOOAO 


D20 5 


3473 


34EB 


0C475 


004ED 


59 
60 
66 




MVC 

CNTRL 

PUT 


DATAPRT+1(6),INARFA 

ORDTF, ESQ, 1 

PRDTF 


MOVE OR DATA TO PRINT AREA 
EJECT AND S5 DOC POK 1 
PRINT LINE 


$4780034 
$4780035 
$4780036 


OOOOCO 


9 240 


34FB 




004E'D 




71 




MVI 


INAREA,C' • 


CLEAR 


$4780037 


0000C4 


0204 


34EC 


34EB 


004EE 


004FD 


72 




MVC 


INAREA+1(5) ,INAREA 


INPUT AREA 


$478003? 


OOOOCA 


9240 


3472 




30474 




73 




MVI 


DATAPRT.C • 


CLEAR 


$4760039 


OOOCCE 


D277 


3473 


3472 


00475 


00474 


74 




MVC 


0ATAPRT+1(120),0ATAPPT 


OUTPUT AREA 


$4780040 


0000 D4 


47F0 


3082 






00084 


75 
76 
77 


* 


B 


READDOCS 


GO TO READ NEXT DOCUMENT 


$4780041 
$4780042 
$478C043 


0000D8 


90E1 


3462 






00464 


79 


CORRECT 


STM 


R14,Rl,SAVE 


SAVE REGS 


$4780045 


"OOODC 


9101 


3546 




00548 




81 


DATACK 


TM 


PPOTFBO.X'Ol' 


0- DATA CHECK 


$4780047 



Figure 46. SYSLST Output for Optical Reader Sample Probl^n — Document 
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AMPLF 


TFST PROGRAM FOR 


DOCUMENT PRDC 


ESSING 








LCC 


OBJECT CODE 


ADDPl 


AD0R2 


STMT 


SOURCE 


STATEMENT 


DOS CL3-0 




000050 


4780 


30EC 






OOOEE 


82 




PZ 


WRLNGTH 


NO, BR TO WRONG LNTH RFC TEST 


$4780048 


1C00E4 


022E 


3486 


3370 


00488 


00372 


S3 




MVC 


DATAPRP(47),DATAMSG 


YES, MOVE DATA CK MSG 


$4780049 


00001=* 


47F0 


3180 






00182 


84 




8 


RESCAN 


BR TO RESCAN ROUTINE 


$4780050 


OOOCEF 


9104 


3 546 




00548 




86 


WPLNGTH 


TM 


0RDTF80,X'O4' 


Q- WAS IT A WRONG LNGTH RECORD 


$4780052 


0C00!=2 


4780 


30FE 






00100 


87 




BZ 


EQUIPC 


NO, GO TEST EQUIP CHECK 


$4780053 


0000F5 


D22E 


34'36 


3312 


00488 


00314 


38 




MVC 


DATAPRP(47),WLENMSG 


YES, MOVE WRONG LNGTH REC MSG 


$4780054 


000- "=0 


47F0 


31FA 






OOIFC 


89 




B 


ENDIPT 


TERMINATE PGM 


$4780055 


000100 


9108 


3546 




00548 




91 


EOUIPC 


TM 


CRDTF80,X'08» 


C- EQUIPCHECK 


$478C057 


0001.04 


4780 


3110 






00112 


92 




BZ 


NONRECOV 


NO, BR TO TEST NONRECOVERY 


$4780058 


000 lOS 


n22E 


3486 


339F 


00488 


CC34 1 


93 




PVC 


DATAPPP(47),EQUIPMSG 


YES, MOVE EQUIP CK MSG 


$4780059 


OOOIOE 


47F0 


31CE 






GO 100 


94 




B 


DISPLAY 


BR TO DISPLAY ROUTINE 


$4780060 


00-1112 


9110 


3546 




00548 




96 


NDNRECOV 


TM 


ORDTFSO.X'IO' 


Q- NON RECOV 


$4780062 


000116 


4780 


312E 






00130 


97 




BZ 


LATESS 


NO, BR TO LATE SS TEST 


$4780063 


OOCllA 


D22F 


3486 


3256 


00488 


00258 


98 

99 




MVC 
PUT 


DATAPRP(47) .NONREC 
PROTF 


YES, MOVE NONREC MSG 
PRINT 


$4780064 
$4780065 


000 i2r. 


47F0 


31FA 






OOIFC 


104 




8 


ENDIPT 


TERMINATE PROGRAM 


$478C066 


000130 


9120 


3546 




00548 




106 


LATESS 


TM 


0RDTF80,X'20' 


Q- LATE STACKER SELECT 


$4780068 


000134 


4780 


314C 






0014E 


107 




BZ 


BADREFMK 


NO, BR TO LOST REF MRK TEST 


$4780069 


000138 


D22E 


3486 


3285 


00488 


00287 


108 
109 




MVC 
PUT 


DATAPRP(47) .LATESTAK 
PRDTF 


YES, MOVE LATE STAK SEL MSG 
PRINT 


$4780070 
$4780071 


00014A 


47 FO 


31FA 






OOIFC 


114 




B 


ENDIPT 


TERM— HARDWARE ERROR OCCURRED 


$4780072 


00014E 


9140 


3546 




00548 




116 


5&DPEFMK 


TM 


OROTF80,X'40' 


Q- BAD LO FRMT OF REF MARK 


$4780074 


000152 


4780 


316A 






0016C 


117 




BZ 


ILLBIT 


NO, ILLGL BIT WAS SET 


$4780075 


000156 


D22E 


3486 


32B4 


00488 


002B6 


118 
119 




MVC 
PUT 


DATAPRP{47),RECALIRR 
PROTF 


YES, MOVE RECALIBRATE MSG 
PRINT 


$4780076 
$4780077 


00C168 


47F0 


31FA 






OOIFC 


124 




B 


ENDIPT 


TERM PGM 


$4780078 


00016C 


D22E 


3486 


32E3 


00488 


002E5 


126 
127 


ILLBIT 


MVC 
PUT 


DATAPRP(47),BADSENSE 
PROTF 


MOVE MSG FOR ILL BIT SETTING 
PRINT 


$4780C8C 
$4780081 


00017E 


47F0 


31FA 






OOIFC 


132 




B 


ENDIPT 


TERM PGM 


$4780082 


000182 


4180 


320E 






00210 


134 


RESCAN 


LA 


Pll.CCHADR 


LOAD ADR OF COORD OF LNDMRK 


$4780084 


000186 


58A0 


3516 






0C518 


135 




L 


R10,ORDTF+32 


LOAD ADR OF RD6KWRD CCW 


$4780085 


00018A 


5BA0 


3252 






0C254 


136 




S 


R10,=F'8' 


POINT TO PRECEDING LD FORMAT 


$4780086 














138 


* 


REREAD THE FIELD FIVE MORE 


TIMES AND FORCE ON-LINE CORRECTION 


$4780088 














139 


* 


IF NOT SUCCESSFUL 




$4780089 




SAMPLE 


TEST PROGRAM FOR 


DOCUMENT PROCESSING 








LOC 


OBJECT CODE 


ADORl 


ADDR2 


STMT 


SOURCE 


STATEMENT 


DOS CL3-0 
















141 




RESCN 


ORDTF,(10),tll),5,F 




$4780091 


OOOIAA 


9108 


3546 




00548 




150 




TM 


ORDTF80tX«08« 


0- EQUIPMENT CHECK 


$4780093 


OOOIAE 


4710 


31CE 






00100 


151 




BO 


DISPLAY 


YES, GO TO DISPLAY FIELD 


$4780094 


000192 


9101 


3546 




00548 




153 




TH 


ORDTFSO.X'Ol' 


NO, Q- DATA CHECK 


$4780096 


000186 


4780 


31 BC 






OOIBE 


154 




BZ 


ANYERRS 


NO, BR TO TEST OTHER ERRORS 


$4780097 


OOOIBA 


47 FO 


31CE 






OOIDC 


155 




B 


DISPLAY 


YES, GO TO DISPLAY FIELD 


$4780098 


OCOIBE 


91F6 


3546 




00548 




157 


ANYERRS 


TM 


0RDTF80,X'F6' 


Q- ANY OTHER ERRORS 


$4780100 


000 1C2 


4780 


31F2 






0C1F4 


158 




BZ 


RETRN 


NO, GO TO RETRN TO PGM 


$4780101 


0001C6 


022 E 


3486 


3341 


00488 


00343 


159 




MVC 


DATAPRP(47),I»ETRYERR 


YES, MOVE RETRY ERR MSG 


$4780102 


OOQICC 


47F0 


31F2 






001F4 


16C 




B 


RETRN 


RETRN TO PGM 


$4780103 


000 IDO 


41B0 


320E 






00210 


162 


DISPLAY 


LA 


Rll.CCHADR 


LD ADR OF COORD OF LNDMRK 


$4780105 


000 104 


58A0 


3516 






00518 


163 




L 


R10,0RDTFt32 


LO ADR OF ROBKHRD CCW 


$4780106 


000108 


5BA0 


3252 






00254 


164 
166 




S 
DSPLY 


R10,=F'8' 
0RDTF,(10),(11) 


POINT TO PRECEDING LD FORMAT 
DISPLAY FIELD FOR KYBRD CORR 


$4780107 
$4780109 



Figure 46. SYSLST Output for Optical Reader Sample Problem — Document 
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0001F4 98E1 3462 
0001F8 07FE 



000210 5300022860C00004 
000218 5300022C60C00004 
000220 2C0C0AF220C00C06 



174 RETRN 
175 



R14,R1,SAVE 
R14 



RESTORE REGS $4780111 

BFTURN FROM CDREXIT TC NTRM PRCC $4780112 



000228 
00022C 



000230 

000230 5B5BC2D6D7C5D5A0 

000238 5B5BC2C3C3D6F2C5 



177 


ENDIPT 


CLOSE 


ORDTF.PRDTF 


186 




EOJ 




19C 


CCWADR 


rcw 


X'53' ,LNDHPK1,X'60 


191 




CCH 


X'53» ,FILDMRK1,X«6 


192 




ccw 


X'2C'.IN*REA+5,X'2 


194 


* 






195 


LNDMRKl 


OS 


F 


196 


FILOMRKl 


OS 


F 


197 


* 






199 




LTORG 




200 






=C"$$80PEN • 


201 






=C'$$BCLCSE' 



CLCSE OROTF AND PRINT 
JOB EXIT 



LANDMARK LOCATION 
1ST FIELD LOCATION 
READ BKWRDS W/ DATA CK 



FIELD 0EF-4TH BYTE FOR ON-LINE 



$4780114 
$4780115 



$4780117 

$4780118 

BYTES $4780119 



$4780121 
$4780122 
$4780123 
$4780124 



SAMPLE TEST PROGRAM FOR DOCUMENT PROCESSING 



LOC OBJECT CODE ADDRl ADDR2 STMT SOURCE STATEMENT 



000240 000005BO 
000244 00000004 
000248 000004FS 
00024C 00000210 
000250 00000580 
000254 00000008 



000258 
000287 
0002B6 
O002E5 
000314 
000343 
000372 
0003A1 



4005D6D560D9C5C3 
40D3C1E3C540E2E3 
40C3D6E4D3C44005 
40E405D9C5C306C7 
40E609D6D5C74CD3 
40C1C6E3C5C940D9 
40C4C1E3C140C3C8 
40C508E4C9D704C5 



202 
203 
204 
205 
206 
207 



209 NONREC DC 

210 LATESTAK DC 

211 RECALIBR DC 

212 BADSENSE DC 

213 MLENMSG DC 

214 RETRYERP DC 

215 OATAMSG DC 

216 EQUIPMSG DC 

217 CALBRTNS DC 



0003D0 C5D5E3C50940F1F6 

00041F FAFBFCFDFEFF 

000425 

000A4E F0F1F2F3F4F5F6F7 

000458 

00045C 

000460 00020000 



000474 
000474 
000488 



0004EO 404040404040 



= A(ORDTFI 
=A(CCWADR) 
= A(PRDTF) 



C NON-RECCVERY OCCURRED. RELOAD AND RESTART 1287 
C LATE STACKER SELECT. DOC IS SS IN REJECT POCK 
C COULD NOT FIND LAKDHARK- RECALIBRATE DOCUMENT 
C UNRECOGNIZABLE BIT HAS FOUND IN COREXIT TESTS 
C MRONG LENGTH RECORD HAS DETECTED. UNRECOV ERR. 
C AFTER RESCN-AN ERR OTHER THAN DAT ACK, EQUIP LOG' 
C" DATA CHECK ' 

C EQUIPMENT CHECK (INCOMPLETE READ) 
CENTER 16 HEX DIGITS FOR REF MARK AND DATA FIELD 
NATES, ALPHA- UPPER CASE.' 



218 


TABLED 


DC 


X'FAFBFCFOFEFF" 


219 




DS 


CL41 


220 


TABLEl 


DC 


C'0123456789' 


221 


BEGIN 


DS 


F 


222 


TO 


DS 


F 


223 


CONST 


DC 


X'OQ020000' 


225 


SAVE 


DS 


4F 


227 


OATAPRT 


DS 


0CL121 


228 




DS 


CL20 


229 


DATAPRP 


DS 


CLIOI 


231 


INAREA 


DC 


CL6' • 


233 


***DTFS 


AND MODULES 


234 


ORDTF 


OTFOR 


BLKSIZE=6, 

C0REX1T=C0RRECT 

DEVADDR=SVS009. 

DEVICE=1287D. 

CONTROL=YES, 

EOFAOOR-ENDIPT, 

I0AREA1=INAREA 


281 




OR MOD 


CONTROL=YES, 
0EVICE=12870 


824 


PRDTF 


DTFPR 


BLKSIZE=121. 

DEVADDR=SYSLST, 

I0AREA1=DATAPRT 


845 




PRMOO 




907 


CNDTF 


OTFCN 


DEVA0DR=SYSL0G, 



$4780128 
$4780129 
$478013C 
$4780131 
$4780132 
$4780133 
$478C134 
$4780135 
C00RDIX$478C136 
$4780137 
$4780138 
$4780139 
$4780140 
$4780141 
$4780142 
$4780143 



$4780147 
$4780148 
$4780149 



$4780153 
X$4780154 
X$4780155 
X$4780156 
X$4780157 
X$4780158 
X$4780159 

$4780160 
X$4780161 

$4780162 
X$4780163 
X$4780164 

$4780165 

$4780166 
X$4780167 



Figure 46. SYSLST Output for Optical Reader Sample Problem — Document 
Mode Processing (Part 3 of 5) 
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SAMPLE TEST PROGRAM FOP DOCUMENT PROCESSING 



LOC OBJECT CODE ADDRl AD0R2 STMT SOURCE STATEMENT 



000548 
000001 
000002 
000003 
OOOOOA 
OOOCOB 

ooooor 

OOOCOE 







I0AREA1=CALBRTNS 






BLKSIZF=80 


94C ORDTF80 


EQU 


PR0TF+80 


941 Rl 


EOU 


1 


942 R2 


EOU 


2 


943 R3 


EOU 


3 


944 RIO 


EQU 


IC 


945 Rll 


EOU 


11 


946 R12 


EOU 


12 


947 R14 


EQU 


14 


949 


END 


BASERG 



X$478C168 
$4780169 
i478C17C 
$4780171 
$4780172 
$478C173 
$4780174 
$4780175 
$4780176 
$4780177 



RELOCATION DICTIONARY 



REL.IO 


FLAGS 


AnORFSS 


01 


OC 


OOOOOC 


01 


OC 


000010 


01 


OC 


00C204 


01 


OC 


000208 


01 


08 


000211 


01 


08 


000215 


01 


08 


000221 


01 


OC 


000240 


01 


OC 


00C248 


01 


OC 


00C24C 


01 


CC 


000250 


01 


08 


00C501 


01 


08 


000505 


02 


18 


000509 


01 


08 


000519 


01 


08 


00051D 


01 


08 


0C0521 


01 


08 


00054D 


01 


08 


000551 


01 


08 


000559 


01 


08 


000561 


01 


OC 


000568 


01 


OC 


00C56C 


01 


CC 


00C57C 


01 


OC 


0CC588 


04 


18 


000591 


01 


CC 


000598 


01 


08 


0C05A9 


01 


OC 


0005B8 


01 


08 


0005C1 


01 


08 


0005C9 



SO STATEMENTS FLAGGED IN THIS ASSEMBLY 



// EXEC LNKEDT 
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JOB OPTICAl 



DISK LINKAGE EDITOR DIAGNOSTIC OF INPUT 



PHASE 
PHASE*** 



XFR-AD LOCORF HICORE DSK-AD 
0028CO 0028C0 003419 13 5 1 



ESD TYPE 
CSECT 



LABEL 
SAMPLE 



LOADED RfL-FR 

0028C0 0C280G 



// EXEC 
021057 
021057 
021057 
-^21057 
021057 
021057 
021057 
021057 
021057 
021057 
021057 
021057 
021057 
021057 
021057 
021057 
021057 
021057 
021057 
07105X 
021057 
021057 
XXXXX 
021057 



CSECT IJMFCZ02 002E00 0028CO 
* ENTRY IJf<FZZOZ 002E00 



IJDFZ7Z? 003AOO C028CC 



DATA CHECK 



EQUIPMENT CHECK 



EOJ OPTICAL 



Figure 46. SYSLST Output for Optical Reader Sample Problem 
Mode Processing (Part 5 of 5) 
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// JOB OPTICAl 


READER SAMPLE PROBLEM 




// ASSGM 


SYS009,X'055' 




// OPTION LINK.NCXREF 




// FXEC ASSEMBLY 


~ 


^=:=======================^^ 










EXTERNAL SYMBOL DICTIONARY 


SYMBOL 


TYPE 


ID 


AODR LENGTH LO ID 






PC 


01 


000000 0Q07BC 




IJMDCBTZ 


ER 


02 






IJMDCBTZ 


SD 


03 


0007C0 0005FO 




IJMDZBTZ 


LO 




0007C0 03 




IJDFCZIW 


ER 


04 






IJDFCZIW 


SD 


05 


OOODBC 000072 




IJPFZZIW 


LD 





OOODBO 05 





























SAMPLE TEST PROGRAM FOP JOURNAL TAPE PROCESSING 








LOC 


OBJECT COnE 


ADDRl 


AODR 2 


STMT 


SOURCE 


STATEMENT 


DOS CL3-0 














2 




PRINT 


NOGEN 




$4781002 


000000 










3 




START 






$4781003 


000000 


0560 








4 


BEGIN 


BALR 


6,0 




$4781004 


00002 










5 
6 




USING 
OPEN 


*.6 

INPUT, OUTPUT 


OPEN OPTICAL READER AND PRINTER 


$4781005 
$4781006 












15 


LOOP 


GET 


INPUT, ORWORKA 


GET RECORD FROM OPTICAL READER 


$47810C7 


000026 


5B50 


67AE 




007BO 


21 




S 


5,=F'l' 


SUBTRACT ONE FROM RECORD COUNT 


$4781008 


00002A 


4250 


6020 




0002F 


22 




STC 


5,*+5 


PUT RECORD LENGTH IN MOVE 


$4781009 


00002E 


D20D 


64D4 654D 


004D6 


0054F 


23 
24 




MVC 
PUT 


PRW0RKA(14) , ORWORKA 
OUTPUT, PRWORKA 


I10VE RECORD TO OUTPUT AREA 
PUT RECORD TO PRINTER 


$4781010 
$4781011 


000044 


9240 


64 D4 


004D6 




30 




MVI 


PRWORKA, C • 


ZERO PRINTER 


$4781012 


000048 


0277 


64D5 6404 


00407 


00406 


31 




MVC 


PRH0RKA+1(120), PRWORKA lOAREA 


$4781013 


00004E 


47F0 


6014 




00016 


32 




B 


LOOP 




$4781014 


000052 


90EF 


60E2 




000E4 


33 


CORRECT 


STM 


14, 15, SAVE 


SAVE REGISTERS 


$4781015 


000056 


9110 


65EE 


005F0 




34 




TH 


INPUT+80,X>10' 


TEST FOR NONRECOVERY 


$4781016 


00005A 


4710 


60CE 




OOODO 


35 




BO 


ENDIPT 




$4781017 


00005E 


9108 


65EE 


005FO 




36 




TM 


INPUT+80,X'08' 


EQUIP CHECK TEST 


$4781018 


000062 


4710 


6074 




00076 


37 




BO 


CHECKl 


IF YES, BRANCH TO CHECKl 


$4781019 


000066 


9101 


65EE 


005F0 




38 


REJECT 


TM 


INPUT+80,X'01' 


DATA CHECK TEST 


$4781020 


OOOOfeA 


4710 


60A2 




000A4 


39 




BO 


KEYBOARD 


IF YES, BRANCH TO 'KEYBOARD' 


$4781021 


00006E 


9102 


65EE 


005F0 




40 




TM 


INPUT+80,X'02' 


KEYBOARD CORRECTION TEST 


$4781022 


000072 


4710 


60C8 




OOOCA 


41 




BO 


RESTORE 


IF YES, BRANCH AND RESTORE REGS 


$4781023 


000076 


D21F 


64FC 6573 


004FE 


00575 


42 
43 


CHFCKl 


MVC 
CNTRL 


PRW0RKA+40(32),MSG1 
INPUT,READKB 


MOVE EQUIP MSG TO 10 AREA 
DSPLY INCOMPLETE READ 


$4781024 
$4781025 


00008A 


91FF 


65EE 


005F0 




49 




TM 


INPUT+80,X'FF« 


TEST FOR ANY OTHER ERRORS 


$4781026 


00008F 


4780 


60C8 




OOOCA 


50 
51 




BZ 
CNTRL 


RESTORE 
INPUT, MARK 


IF NO, BRANCH AND RESTORE REGS 
MARK THE ERROR LINE 


$4781027 
$4781028 


OOOOAO 


47F0 


60C8 




OOOCA 


57 




B 


RESTORE 


BRANCH AND RESTORE REGISTERS 


$4781029 


00O0A4 


9102 


65EE 


005FO 




58 


KEYBOARD 


TM 


INPUT+80,X>02' 


KEYBOARD CORRECTION TEST 


$4781030 


0000A8 


4710 


6074 




00076 


59 




BO 


CHECKl 


IF YES, BRANCH AND RE-READ LINE 


$4781031 


OOOOAC 


D209 


64FC 6593 


004FE 


00595 


60 
61 




MVC 
RDLNE 


PRWORKA+40 (10) , MSG2 
INPUT 


MOVE DATA CK MSG TO 10 AREA 
RE-READ CHARACTER 


$4781032 
$4781033 


0000 BE 


91FF 


65EE 


005FO 




66 




TH 


INPUT+80,X'FF' 


TEST FOR ANY OTHER ERRORS 


$4781034 


0000C2 


4780 


60C8 




OOOCA 


67 




BZ 


RESTORE 


IF NO, BRANCH AND RESTORE REGS 


$4781035 


0000C6 


47F0 


6074 




00076 


68 




B 


CHECKl 


BRANCH AND RE-READ LINE 


$4781036 


OOOOCA 


98EF 


60E2 




O00F4 


69 


RESTORE 


LM 


14, 15, SAVE 


RESTORE REGISTERS 


$4781037 


OOOOCE 


07FE 








70 




8R 


14 


RETURN TO MAIN LINE 


$4781038 












71 


ENDIPT 


CLOSE 


INPUT, OUTPUT 


CLOSE OPTICAL READER AND PRINTER 


$4781039 












80 




EOJ 






$4781040 


0000E4 


00000000 






83 


SAVE 


DC 


IF'O' 




$4781041 


0000E8 


00000000 






84 




DC 


IF'O' 




$4781042 


OOOOEC 


40404040404)4040 




85 


FILINPTl 


DC 


CL256' • 




$4781043 


OOOIEC 


4040404040434040 




86 




DC 


CL124' • 




$4781044 


000268 


4040404040404040 




87 


FILINPT2 


DC 


CL256> • 




$4781045 


000368 


4040404040404040 




88 




DC 


CL124' • 




$4781046 


0003E4 


4040404040404040 




89 


FILOUPTl 


DC 


CL121' ■ 




$4781047 


000450 


4040404040404040 




90 


FIL0UPT2 


DC 


CL121' • 




$4781048 


Ot)04D6 


40404040404 Q4040 




91 


PRWORKA 


DC 


CL121' ' 




$4781049 


00054F 


4040404040404C4C 




92 


ORWORKA 


DC 


CL38' • 




$4781050 


000575 


C5D8E4C907D4C5D5 




93 


MSGl 


DC 


C'EQUIPMENT CHECK( INCOMPLETE READ)' 


$4781051 


000595 


C4C1E3C140C3C8C5 




94 


MSG2 


DC 


C'DATA CHECK- 




$478105^ 



Figure 47. SYSLST Output for Optical Reader Sample Problem (Journal 
Tape Processing) (Part 1 of 4) 
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SAMPLE TEST 


PROGRAM FOR JOURNAL TAPE PROCESSING 






LOC 


OBJECT CODE 


ADORl A DDR 2 


STMT SOURCE STATEMENT 


DOS CL3-0 












95 ***OTFS AND MODULES 


$4781053 












96 INPUT DTFOR BLKSIZE=380, 


Xt4781054 












BLKFAC=10, 


X$4781055 












COREXIT=CORRECT, 


X$4781056 












DEVADDR=SYS009, 


X$4781C57 












DEVICE=1287T, 


X»4781058 












CONTROL=VES, 


X$4781C59 












EOFAODR=EN0IPT, 


X$4781C6C 












I0AREA1=FILINPT1, 


X»4781C61 












I0AREA2=FILINPT2, 


X$4781062 












RECFORM=UNDEF, 


X$4781063 












RECS1ZE=5, 


X$4781064 












WORKA=YES 


$4781065 












188 ORMOD RECFORM=UNDEF, 


X$4781066 












BLKFAC=YES, 


X*4781067 












WORKA=VES, 


X$4781068 












CCNTROL=YES, 


X$4781069 












I0AREA2=YES, 


X»4781070 












DEVICE=1287T 


$4781071 












734 OUTPUT OTFPR BLKSIZE=121, 


X$4781C72 












CONTR0L=YES, 


X$4781073 












DEVADDR=SYSLST, 


X$4781074 












I0AREA1=FIL0UPT1, 


X$4781075 












I0AREA2=FIL0UPT2, 


X$4781C76 












W0RKA=YES 


$4781077 












755 PRMOD C0NTROL=YES, 


X$4781078 












HORKA=cYES, 


X$4781079 












I0ARFA2=YES 


$4781080 




000000 








838 END BEGIN 


$4781081 




000798 


5B5BC2D6D7C5D')4C 




839 =C'$$BOPEN ■ 






0007 AO 


5B5BC2C3D306E2C5 




840 =C'$$BCLOSE' 






0007A8 


000005AO 






841 =A( INPUT) 






0007AC 


0000054F 






842 =A(ORNORKA) 






0007B0 


00000001 






843 =F'l' 






0007B4 


00000768 






844 = A (OUTPUT) 






0007B8 


000004D6 


===== 


== 


845 =A(PRHORKA) 


=========================== 












RELOCATION DICTIONARY 






POS.IO 


REL.ID 


FLAGS 


ADDRESS 








01 


01 


OC 


OOOOOC 








01 


01 


OC 


OOOOIO 








01 


01 


OC 


000008 








01 


01 


OC 


OOOODC 








01 


01 


08 


0005A9 








01 


01 


08 


0005AD 








01 


02 


18 


0005B1 








01 


01 


08 


0005C1 








01 


01 


08 


0005C5 








01 


01 


08 


0005C9 








01 


01 


08 


0005F5 








01 


01 


OC 


0005F8 








01 


01 


OC 


0005FC 








01 


01 


08 


000609 








01 


01 


OC 


000610 








01 


01 


OC 


00061A 








01 


01 


OC 


000618 








01 


01 


08 


000629 








01 


01 


08 


000631 








01 


01 


08 


000639 








01 


01 


08 


000641 








01 


01 


08 


000649 








01 


01 


08 


000651 








01 


01 


08 


000659 








01 


01 


08 


000661 








01 


01 


08 


000669 








01 


01 


08 


000671 








01 


01 


08 


000679 








01 


01 


08 


000681 








01 


01 


08 


000689 








01 


01 


08 


000691 








01 


01 


08 


000699 








01 


01 


08 


0006A1 








01 


01 


08 


0006A9 








01 


01 


08 


000681 








01 


01 


08 


0006B9 








01 


01 


08 


0006C1 








01 


01 


08 


0006C9 








01 


01 


08 


000601 




^___ -^_^— — _ 











Figure 47. SYSLST Output for Optical Reader Sample Problem (Journal 
Tape Processing) (Part 2 of U) 
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0006D9 
0006E1 
0006E9 
00C6F1 
0006F9 
000701 
000709 
000711 
000719 
000721 
000729 
000731 



RELOCATION DICTIONARY 



POS.ID 


REL.ID 


FLAGS 


ADDRESS 


01 


01 


08 


0OC739 


01 


01 


08 


000741 


01 


01 


08 


000749 


01 


01 


oe 


000751 


01 


01 


08 


000759 


01 


01 


OP 


000761 


01 


01 


oc 


000770 


01 ■ 


04 


18 


0CC779 


01 


01 


OC 


000780 


01 


01 


08 


000791 


01 


01 


OC 


0007A8 


01 


01 


OC 


0007AC 


01 


01 


OC 


0007B4 


01 


01 


OC 


0007B8 



NO STATEMENTS FLAGGED IN THIS ASSEMBLY 



// EXEC LNKEDT 



JOB OPTICAL 



ACTION TAKEN 
LIST ENTRY 



DISK LINKAGF EDITOR DIAGNOSTIC OF INPUT 



10/20/67 PHASE XFR-AD LOCCRE HICOBE DSK-AD 
PHASE*** 002800 002800 003621 13 5 1 



FSD TYPE LABEL 
CSECT 



LOADED REL-FR 
002800 002800 



CSECT IJMDCBT2 0C2FC0 002800 
* ENTRY IJMDZBTZ 002FCO 



CSECT IJDFCZIW 0035B0 002800 
* ENTRY IJDFZZIH 0035B0 




Figure 47, SYSLST Output for Optical Reader Sample Problem (Journal 
Tape Processing) (Part 3 of 4) 
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/ PXFC 




012 


3456 


789C 


123 


4567 


890S 


7^^ 


5678 


901T 


^A5 


6789 


012N 


456 


7890 


123S 


=^67 


8901 


234X 


678 


9012 


345C 


789 


0123 


456T 


R90 


1234 


567Z 


OOI 


2 345 


678- 


012 


3456 


789C 


123 


4567 


890S 


^34 


5678 


901 T 


^A5 


6789 


012N 


456 


7890 


123S 


= 67 


8901 


234X 


678 


9012 


345C 


789 


0123 


456T 


890 


1234 


567Z 


OOl 


2345 


678- 


012 


3456 


789C 


'23 


4567 


890S 


234 


5678 


901T 


345 


6789 


012N 


456 


7890 


123S 


567 


8901 


234X 


678 


9012 


345C 


789 


0123 


456T 


890 


1234 


567Z 


901 


2 345 


678- 


012 


3456 


789C 


123 


4567 


8903 


234 


5678 


901T 


^45 


6789 


012N 


456 


7890 


123S 


>;67 


8901 


234X 


678 


9012 


345C 


789 


0123 


456T 


890 


1234 


567Z 


901 


2 345 


678- 


012 


3456 


789C 


123 


4567 


890S 


734 


5678 


901T 


345 


6789 


01 2N 


456 


7890 


123S 


567 


8901 


234X 


678 


9012 


345C 


789 


0123 


456T 


890 


1234 


5672 


OOI 


?345 


678- 


012 


3456 


789C 


123 


4567 


890S 


234 


5678 


90 IT 


345 


6789 


012N 


456 


7890 


123S 


567 


8901 


234X 


678 


9012 


345C 


789 


0123 


456T 


890 


1234 


567Z 


901 


2345 


678- 


012 


3456 


789C 



EOJ OPTICAL 



Figure 47. SYSLST Output for Optical Reader Sample Problem (Journal 
Tape Processing) (Part U of 4) 
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Emulator (1401/1460 and 14U0) 



Figure 48 shows the SYSLST output of the IBM Model 2025, and IBM Model 
2030 emulator sample problems for the IBM Model 1440. The SYSLST output 
for IBM Model 1401/1460 sample problem is identical except for the 
sequence numbers 0088-0107 (see Figure 48). Figure 49 shows the SYSLST 
output of the IBM Model 2040 emulator sample problem for the IBM Model 
1440. The SYSLST output for the IBM Model 14 01/1460 is identical except 
for the sequence numbers 0029-0048 (see Figure 49). The sample problens 
list 20 records on the printer, and if a tape is available and assigned 
it will write them out on tape. Card niimbers (cols. 73-76) 004, 006, 
and 051 must be removed from the deck and replaced by cards as 
instructed. For a complete description of the Emulator sample program 
and its output, refer to the Emulator Program manual listed in the 
Prefa ce . 



biJ 1 

CC2 
C03 
CO^ 
CC5 
CC6 
C07 
008 
CC9 
CIO 
Oil 
C12 
C13 
CIA 
C15 
C16 
CI? 

cie 

C19 
020 



AtiCDEFGnl 
A8C0EFGHI 
ABCDEFGHI 
ABCDEFGHI 
A8CDEFGHI 
ABCDEFGHI 
ABCDEFGHI 
ABCDEFGHI 
ABCDEFGHI 
ABCDEFGHI 
ABCDEFGHI 
ABCDEFGHI 
ABCDEFGHI 
ABCDEFGHI 
ABCDEFGHI 
ABCDEFGHI 
ABCDEFGHI 
ABCDEFGHI 
ABCDEFGHI 
ABCDEFGHI 



JKLMNGP 
JKLMNGP 
JKLMNOP 
JKLMNGP 
JKLMNGP 
JKLMNOP 
JKL^4NCP 
JKLMNOP 
JKLMNOP 
JKLMNOP 
JKLMNGP 
JKLMNOP 
JKLMNOP 
JKLMNOP 
JKLMNOP 
JKLMNOP 
JKLMNOP 
JKLMNGP 
JKLMNOP 



GKSTUV 
ORSTUV 
QRSTUV 
ORSTUV 
CkSTUV 
QRSTUV 
ORSTUV 
QRSTUV 
QRSTUV 
CRSTUV 
QRSTUV 
QRSTUV 
OHSTUV 
ORSTUV 
CHSTUV 
ORSTUV 
CRSTUV 
QRSTUV 
ORSTUV 
Q'^STUV 



WXYZO 
WXYZO 
WXYZO 
WXYZO 
WXYZO 
WXYZO 
WXYZO 
WXYZO 
WXYZO 
WXYZO 
WXYZO 
WXYZO 
WXYZO 
WXYZO 
WXYZO 
WXYZO 
WXYZO 
WXYZO 
WXYZO 
WXYZO 



123456789 
123456789 
123456789 
123456789 
123456789 
123456789 
123456739 
123456789 
123456789 
123456789 
123456789 
123456789 
123456789 
123456789 
123456789 
123456739 
123456789 
123456789 
123456789 
123456789 



1401/ 
1401/ 
1401/ 
1401/ 
1401/ 
1401/ 
1401/ 
1401/ 
1401/ 
1401/ 
1401/ 
1401/ 
1401/ 
1401/ 
1401/ 
1401/ 
1401/ 
1401/ 
140 1/ 
1401/ 



1440/1460 
1440/1460 
1440/1460 
1440/14AC 
1440/1460 
1440/1460 
1440/1460 
1440/1460 
1440/1460 
1440/1460 
1440/1460 
1440/1460 
1440/1460 
1440/1460 
1440/1460 
1440/I46a 
1440/1460 
1440/1460 
1440/1460 
1440/1460 



SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 
SAMPLE 



PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 



0083 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 



Figure 48. SYSLST Output for Emulator Sample Problem (IBM Model 2030) 



001 


ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789 


1401/1440/1460 


SAMPLE 


PROGRAM 


0029 


002 


ABCDEFGHIJKLMNOPORSTUVWXYZ 0123456789 


1401/1440/1460 


SAMPLE 


PROGRAM 


0030 


003 


ABC0EFGHIJKLMN0P0RSTUVWXYZ0123456 789 


1401/1440/1460 


SAMPLE 


PROGRAM 


0031 


004 


ABCOEFGHIJKLMNOPORSTUVWXYZOl 23456 789 


1401/1440/1460 


SAMPLE 


PROGRAM 


0032 


005 


ABCDEFGHIJKLMNOPORSTUVWXYZOI 23456789 


1401/1440/1460 


SAMPLE 


PROGRAM 


0033 


006 


ABC0cFGHlJKLMN0PQRSTUVWXYZ0123456 789 


1401/1440/1460 


SAMPLE 


PROGRAM 


0034 


007 


ABCDEFGHIJKLMNOPORSTUVWXYZ 01 23456789 


1401/1440/1460 


SAMPLE 


PROGRAM 


0035 


008 


ABCOEFGHIJKLMNOPORSTUVWXYZO 123456789 


1401/1440/1460 


SAMPLE 


PROGRAM 


0036 


009 


ABCOEFGHIJKLMNOPORSTUVWXYZOl 23456789 


1401/1440/1460 


SAMPLE 


PROGRAM 


003 7 


010 


ABCOEFGHIJKLMNOPORSTUVWXYZOl 23456789 


1401/1440/1460 


SAMPLE 


PROGRAM 


003 8 


Oil 


ABCOEFGHIJKLMNOPORSTUVWXYZOl 23456789 


1401/1440/1460 


SAMPLE 


PROGRAM 


0039 


012 


ABCOEFGHIJKLMNOPORSTUVWXYZO 123456789 


1401/1440/1460 


SAMPLE 


PROGRAM 


0040 


013 


ABCDEFGHIJKLMNOPQRSTUVWXYZOl 23456 789 


1401/1440/1460 


SAMPLE 


PROGRAM 


0041 


014 


ABCDEFGHIJKLMNOPORSTUVWXYZ 01 23456 789 


1401/1440/1460 


SAMPLE 


PROGRAM 


0042 


015 


A8C0EFGHUKLMN0PQRSTUVWXYZ01 23456 789 


1401/1440/1460 


SAMPLE 


PROGRAM 


0043 


016 


ABCOEFGHIJKLMNGPQRSTUVWXYZO 123456789 


1401/1440/1460 


SAMPLE 


PROGRAM 


0044 


017 


ABCOEFGHIJKLMNOPORSTUVWXYZO 1 23456 789 


1401/1440/1460 


SAMPLE 


PROGRAM 


0045 


018 


ABCOEFGHIJKLMNOPORSTUVWXYZO 123456 789 


1401/1440/1460 


SAMPLE 


PROGRAM 


0046 


019 


ABCDEFGHIJKLMNOPORSTUVWXYZOI 23456789 


1401/1440/1460 


SAMPLE 


PROGRAM 


0047 


020 


ABCDEFGHIJKLMNOPQRSTUVWXYZOl 23456 789 


1401/1440/1460 


SAMPLE 


PROGRAM 


0048 



• Figure 49. SYSLST Output for Emulator Sample Problem (IBM Model 2040) 
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Appendix A. IPL Control and ASSGN Statements for 

System Generation 



The formats for the ADD and SET statements are given in this section. 
These statements are used at IPL time. If standard physical unit 
description and assignments are made when assembling the supervisor and 
these correspond to the configuration used when the system was 
generated, no ADD or ASSGN statements are rec[uired during subsequent IPL 
procedures. The SET statement is always required. 



ADD (ADD A DEVICE) 



r r 1 

I Operation | Operand | 

^ 4 ^ 

I ADD I X'cuu* [ (k)],devicetype[,X'ssM | 

L 1 J 



The entries in the operand field represent the following: 

X'cuu* 

Channel and unit numbers. 

(k) 

Specify S if the device is to be switchable (the device is physically 
attached to two adjacent channels). The designated channel is the lower 
of the two channels. If the device is not switchable, K=0-254. This 
indicates the priority on the channel of the device, with the highest 
priority. 

devicetype 

Actual device (2311, 2U00T9, 1443, etc). See Figure 5. 

X'ss* 



Device specifications: If absent for 7- or 9-track tapes, X*90' or 
X'CO' is assumed. (See ASSGN statement for the proper entries.) 

The device specifications for an IBM 2702 Transmission Control Unit 
are: 

X'OO' for SADO X'02' for SAD2 
X'Ol* for SADl X'03* for SAD3 

The device specification for a 1053 attached to a 28U8 is: X'Ol*. 

If the device type is omitted for a 2702 Transmission Control Unit, 
X'OO* is assumed. 

222 IBM S/360 DOS Sys. Gen. and Maint. 



SET (SET THE DATE) 



r T 1 

I Operation j Operand | 

^ + ^ 

I SET I DATE= iran/dd/yy [,CLOCK=hh/iran/ss] j 

I I dd/inir/yy | 

L J J 



Select one of the formats for the date. Replace iran with the month* dd 
with the day, _yy with the year. The format selected must concur with 
the option selected at system generation. Systems delivered by IBM use 
the mm/dd/yy format. 

If the Timer Feature was specified during supervisor generation, 
include CLOCK=hh/mm/ss where hh is hours, mm is minutes, and ss is 
seconds. 



ASSGN (ASSIGN LOGICAL NAME) 



The ASSGN command assigns a logical input/output unit to a physical 
devic e, 

I Operation j Operand | 

f + ^ 

I ASSGN I SYSnnn,X*cuu' ,X'ss* j 

I I ,ALT I 

I X J 



The entries in the operand field represent the following; 



SYSnnn 



The symbolic unit name. It may be one of the following: 



SYSRDR SYSLST SYSIN 

SYSIPT SYSLOG SYSOUT 

SYSPCH SYSLNK SYS000-SYS221 



X'CUU' 

Indicates the hexadecimal channel (c) and unit (uu) number. C=0 for the 
multiplexor channel. C=l-6 for selector channels 1-6. 
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X'ss' 

Device specifications for 7- and 9- track tape are 





Bytes 




Trans- 








Per 




late 




Convert 


ss 


Inch 


Parity 


Feature 


Feature 


10 


200 


odd 


off 




on 


20 


200 


even 


off 




off 


28 


200 


even 


on 




off 


30 


200 


odd 


off 




off 


38 


200 


odd 


on 




off 


50 


556 


odd 


off 




on 


60 


556 


even 


off 




off 


68 


556 


even 


on 




off 


70 


556 


odd 


off 




off 


78 


556 


odd 


on 




off 


90 


800 


odd 


off 




on 


AO 


800 


even 


off 




off 


A8 


800 


even 


on 




off 


BO 


800 


odd 


off 




off 


B8 


800 


odd 


on 




off 


CO 


800 


9-track 


single 


density 


CO 


1600 


9-track 


dual de 


;nsity 


C8 


800 


9-track 


dual dens 


ity 


CO 


1600 


9-track 


single 


de 


nsity 



ALT 



Alternate tape unit is to be used when the capacity of the original 
assignment is reached. 
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Appendix B. IOCS Modules for COBOL, 

RPG and PL/I 



This appendix lists the preasseinbled IOCS modules used by COBOL, PL/ 1, 
and RPG object programs. No IOCS modules are required by FORTRAN, For 
assembler language programs, the user can preassemble IOCS modules as 
described in the Supervisor and Input/Output Macros publication 
referenced on the cover of this publication. The following preassembled 
modules for COBOL, PL/I, and RPG can be used by any other program 
whenever applicable. Each module name begins with a 3- character prefix 
and consists of a 5- character field corresponding to the option 
permitted in generation of the module. 

CDMOD name = IJCabcde 

a = F if RECPORM=FIXUNB (always for INPUT CMBND files) 
= V if RECFORM=VARUNB 
= U if RECFORM=UNDEF 

b = A if CTLCHR=ASA is specified (not specified in CMBND) 
= Y if CTLCHR=YES is specified 
= C if CONTROL=YES is specified 
= Z if neither CTLCHR nor CONTROL is specified 

C = I if TYPEFLE=INPUT 
= O if TYPEFLE=OUTPUT 
= C if TYPEFIE=CMBND 

d = Z if neither WORKA nor I0AREA2 is specified 
= W if WORKA=YES is specified 
= I if IOAREA2=YES 
= B if both WORKA and IOAREA2 are specified 

For CMBND files: 

If WORKA=YES is specified, d = W 

If WORKA=YES is not specified, d = Z 

e = if DEVICE=25tlO 
= 1 if DEVICE=14a2 
= 2 if DEVICE=2520 
= 3 if DEVICE=2501 

= a if DEVICE=2540 and CRDERR is specified 
= 5 if DEVICE=2520 and CRDERR is specified 
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COBC5L 



RPG 



PL/I 



IJCFZIZO* 

IJCFZIZl* 

IJCFZIZ2* 

IJCFZIZ3** 

IJCFZIIO** 

IJCFZIIl** 

IJCfZII2** 

IJCFZII3** 

IJCFAOIO 

IJCFAOIl* 

IJCFAOI2* 

IJCFA0I4* 

IJCFAOI5 

IJCFAOZ 

IJCIAOZl* 

IJCFAOZ 2* 

IJCFA0Z4* 

IJCFAOZ 5 

IJCFZOIl* 

IJCPZ0I2* 

IJCFZOm* 

IJCFZOI5 

IJCFZOZl* 

IJCFZ0Z2* 

IJCFZOZU* 

IJCFZ0Z5 



IJCFCCZO 

UCFCCZl 

IJCFCCZ2 

UCFCIZO 

IJCFCIZl 

IJCFCIZ2 

IJCFYOIO 

IJCFYOIl*** 

IJCFY0I2*** 

IJCFYOZO 

IJCFYOZl*** 

IJCFY0Z2*** 

IJCFZIIO** 

IJCFZIIl** 

IJCFZII2** 

UCFZII3** 

IJCFZIZ3** 



IJCFAOIl* 

IJCFAOI2* 

IJCFAOIU* 

IJCFAOZ 1* 

IJCFAOZ2* 

IJCFAOZ a* 

IJCFYOIl*** 

IJCFYOI2*** 

IJCFY0I4 

IJCFYOZl*** 

IJCFY0Z2*** 

IJCFY0Z4 

IJCFZIIO** 

IJCFZIIl** 

IJCFZII2** 

IJCFZII3** 

IJCFZIZO* 

IJCFZIZl* 

IJCFZIZ2* 

IJCFZIZ3** 

IJCFZOIl* 

IJCFZ0I2* 

IJCFZOIU* 

IJCFZOZl* 

IJCFZ0Z2* 

IJCFZ0Z4* 



*cx)iiimon to COBOL and PL/I 
**coinnon to COBOL, RPG, and PL/I 
***oommon to RPG and PL/I 

PRMCX) name = IJDabcde 

a = F if RECFORM=FIXl]NB 
= V if RECFORM=VARUNB 
= U if RECFORM=UNDEF 

b = A if CTLCHR=ASA is specified 
= Y if CTLCHR=YES is specified 
= C if CONTROL=YES is specified 
= Z if neither CTLCHR nor CONTROL is specified 

c = P if PRINTOV=YES is specified 
= Z if PRINr0V=YES is not specified 

d = I if IOAREA2=YES is specified 

= Z if I0AREA2=YES is not specified 

e = W if WORKA=YES is specified 
= Z if WORKA=YES is not specified 
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COBOL RPG PL/I 

IJDEAPIZ IJDFYPZW IJDFAZIZ 

IJDFAPZZ IJDFYPZZ IJDFAZZZ 

IJDFZPIZ* IJDFYZZZ 

IJDFZPZZ* IJDFYZIZ 

IJDFZPZZ* 
IJDFZPIZ* 
♦ comiron to CXDBOL and PL/ 1 



MTMOD name = IJFabcde 



a = F if RECFORN!=FIXUNB (or FIXBLK) 
= V if RECFORM=VARDNB (or VARBLK) 
= U if RECFORN=UNDEF 



b = B if READ=BACK is specified 

= Z if READ=FORWARD or is not specified 



c = C if CKPTREC=YES is specified 
= Z if CKPTREC=YES is not specified 



d = W if WORKA=YES is specified 
= Z if WORKA=YES is not specified 



e = Z always 



COBOL RPG PL/I 

IJFUBCZZ IJFVZCWZ IJFFBZZZ 
IJFVBCZZ IJFFZCZZ IJFFZZZZ 
IJFFBCZZ IJFVZZZZ 

IJFVBCWZ IJFUBZZZ 

IJFDZZZZ 



SDMODxx name = IJGabcde 

a = F if records are fixed unblocked or fixed blocked 

= V if records are variable iinblocked or variable blocked 
= U if records are undefined 

b = U if file is an update file 
= I if file is an input file 
= O if file is an output file 

c = E if ERROPT=YES is specified 
= Z if ERROPT=YES is not specified 

d = T if TRUNCS=YES is specified 

= Z if TRDNCS=YES is not specified 

e = C if CONTROL=YES is specified 

= Z if CONTROL=YES is not specified 
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COBOL 



RPG 



PL/I 



IJGFIETZ* 

UGFIZZZ** 

IJGPOZZZ** 

UGIDZZZ** 

IJGUIEZZ* 

UGUIZZZ 

IJGUOZZZ 

IJGUUZZZ 

UGVIEZZ* 

IJGVIZZZ** 

UGVOZZZ** 

IJGVUZZZ** 



UGFIZZZ** 
UGPOZZZ** 
IJGFUZZZ** 
UGVIZZZ** 
UGVOZZZ** 
IJGVUZZZ** 



IJGFIETZ* 

IJGFIEZZ 

IJGZIEZZ 

IJGFOEZZ 

IJGFUEZZ 

IJGUIEZZ* 

IJGUOEZZ 

IJGUUEZZ 

UGVIEZZ* 

IJGVOEZZ 

IJGVUEZZ 



♦ cDirmon to COBOL and PL/I 
**coinnon to COBOL and RPG 



ISMOD name = UHafccde 

a = A if RECFORM=BarH and lOROUT specifies ADD or ADDRTR 
= B if RECPORM=FIXBLK and lOROUT specifies ADD or ADDRTR 
= U if RECFORM=FIXUNB and lOROUT specifies ADD or ADDRTR 
= Z if lOROUT specifies LOAD or RETRVE 

b = L if IOROUT=LOAD 

= I if IOROUT=ADD 

= R if IOROUT=RETRVE 

= A if IOROUT= ADDRTR 

c = R if TYPEFLE=RANDOM is specified 
= S if TYPEFLE=SEQNTL is Specified 
= B if TYPEFLE=RANSEQ is specified 
= Z if TYPEFLE is not specified 

d = C if CORINDX=YES is specified 
= Z if CORINDX is not specified 

e = P if CORDATA=YES is specified 
= Z if CORDATA is not specified 
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COBOL 



RPG 



PL/I 



IJHAA.BZZ 

IJHAARCP*** 

IJHAARCZ*** 

IJHAARZP*** 

IJHAARZZ*** 

UHAASZZ 

IJHAIZZZ 

UHBABZZ 

IJHBARCP*** 

IJHBARCZ*** 

UHBARZP*** 

IJHBARZZ*** 

IJHEASZZ 

IJHBIZZZ 

IJHDABZZ 

IJHIARCP*** 

IJHUARCZ*** 

IJHUARZP*** 

IJHIARZZ*** 

UHDASZZ 

IJHUIZZZ 

IJHZLZZZ** 

IJHZRBZZ* 

IJHZRRCZ*** 

IJHZRRZZ** 

IJHZRSZZ** 



IJHZLZZZ** 
IJHZRBZZ** 
UHZRRZZ** 
IJHZRSZZ** 



IJHAARCP*** 

IJHAARCZ*** 

IJHAARZP*** 

IJHAARZZ*** 

IJHBARCP*** 

IJHBARCZ*** 

UHBARZP*** 

IJHBARZZ*** 

IJHUARCP*** 

IJHUARCZ*** 

IJHUARZP*** 

IJHOARZZ*** 

IJHZLZZZ** 

IJHZRRCZ*** 

UHZRRZZ** 

IJHZRSZZ** 



*coinnon to COBOL and RPG 
** common to COBOL, RPG,, and PL/I 
***coirmon to COBOL and PL/I 
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DAMOD narr.e = IJIabcde 



a = F if RECFORM=FIXUNB 

= B if RECFORW=UNDEF (handles both UNDEF and FIXUNB) 



b = A if AFTER=YES is specified 
= Z if AFTER is not specified 



c = I if IDLCC is specified 
= Z if IDLOC is not specified 



d = Z always 
e = Z always 



COBOL 



RPG 



PL/ 1 



UIBZZZZ** 



IJIEAIZZ 

IJIBAZZZ 

IJIEZIZZ 

IJIBZZZZ** 

IJIFAIZZ 

IJIFAZZZ* 

IJIFZIZZ 

IJIFZZZZ* 



♦ comiron to COBOL and PL/I 
♦ ♦common to COBOL and RPG 



IJIFAZZZ+ 
IJIFZZZZ+ 
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Name list for MTMOD Work File Type Modules (TYPEFLE=WORK) 

MTMOD name = IJFWatcd 

a = E if ERROPT=YES is specified 
= Z if ERROPT is not specified 

b = N if NOTEPNT=YES is specified 

= Z if NOTEPNT'=YES is not specified 
= S if NOTEPNT=PCITgTS is specified 

c = Z always 

d = Z always 

System I/O Modules 

For MTMOD: 

IJFWEZZZ 
IJFWZNZZ 
IJFWZZZZ 

Name List for SDMOD Work File Type Modules 

SDMODW name = IJGWabcd 

a = E if ERROPT=YES 

= Z if ERROPT is not specified 

b = R if NOTEPNT=POINTRW is specified 
= N if NOTE PNT= YES is specified 
= Z if NOTEPNT is not specified 

c = Z always 

d = Z always 

System I/O Modules 

I JGWE ZZU 
IJGWEZZZ 
IJGWZNZZ 
IJGWZRZZ 
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DIMCD name = IJJabcde 

a = F for fixed unblocked record format 

b = C for ASA and Syst:em/360 control character suppoirt for printers and 
punches 

c = B if an output file is specified (processes both input and output) 
= I if an input file is specified 

d = I if I0AREA2=YES is specified 
= Z if IOAREA2=YES is not specified 

e = D for DOS DIMOD 



COBOL RPG PL/I 

IJJFCBID 
IJJFCBZD 
IJJFCIID 
IJJFCIZD 
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Appendix C. IBM System Components 

Identification 

Core Image Phases 

All progrciin phase names in the cx)re image library are composed of two 
foiar- character parts. The first four characters uniquely identify the 
program* The next four characters identify the phase of the program. 
The first phase of a program to be executed from the core image library 
(cataloged on SYSRES) must be identical to the name specified in the // 
EXEC control statement. For RPG, the first ^ characters of the phase 
names are RPGl, although the processor is invoked ty 

// EXEC RPG. 

All IBM-supplied phase names begin with an alphabetic character 
(A-Z) . Three clcisses of programs are exceptions : 

1, Transient routines. Type A transient routines (device error 

routines) have the prefix $$A. ($ is an alphabetic character in 
System/360.) Type B transient routines (OP£W, CLOSE, CHKPT, etc) 
have the prefix $$B. 



Device Error Routines and OPEN/CLOSE Phases for Disk Operating System 



$$ANERAE 
$$ANERRA 
$$ANERRB 
$$ANERRC 
$$ANERRD 
$$ANERRE 
$$ANERRF 
$$ANERRG 
$$ANERRH 
$$ANERRI 
$$ANERRJ 
$$ANERRK 
$$ANERRL 
$$ANERRM 
$$ANERRN 
$$ANERRO 
$$ANERRP 
$$ANERRQ 
$$ANERRR 
$$A^ERRS 
$$ANERRT 

$$ane;rru 

$$ANERRV 
$$ANERRW 
$$A]SIERRX 
$$ANERRY 
$$ANERRZ 
$$ANERRO 
$$ANERR1 
$$ANERR6 
$$ANERR7 
$$ANERR8 
$$ANERR9 

$$BATST1 
$$BATST3 
$$BATTNA 



Message Writer 

Error recovery monitor 

Error recovery monitor 

Error recovery monitor 

Tape- error recovery 

Tape-error recovery 

Tape- error recovery 

Data cell (2321) -error recovery 

Data cell error recovery 

Data cell (2321) -error recovery 

Data cell (2321) -error recovery 

Data cell (2321)-error recovery 

Tape-error recovery 

Message writer 

Message writer 

Attention routine 

Message writer 

Message writer 

Message writer 

System control 

1U12/1U19 error recovery 

Unit record error recovery 

Unit record error recovery 

1419D error recovery 

Paper tape error recovery 

Physical attention routine 

Physical attention routine 

Physical attention routine 

Modify communication region 

2495 Tape Cartridge Reader Error Recovery Phase 

2495 Tape Cartridge Reader 

2495 Tape Cartridge Reader 

Optical character reader-error recovery procedure 

Autotest (2311 only) 
Autotest (2311 only) 
Supervisor- program terminator 
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$$BftrTNB 

$$BATTNC 

$$BM'TND 

$$BATTNE 

$$BOTTNF 

$$ BAT TNG 

$$BATTNH 

$$BM'TNI 

$$BATTNJ 

$$BM'TNK 

$$BATT1SIL 

$$BATTNM 

$$BATTNN 

$$BATTNO 

$$BATTNP 

$$BCBIIS 

$$BCBLOP 

$$BCBa)A 

$$BCBDSR 

$$BCBUSW 

$$BCCPT1 

$$BCE0V1 

$$BCHKPD 

$$BCHKPE 

$$BCHKPF 

$$BCHKPT 

$$BCHKP2 

$$BCISOA 

$$BCLOSE 

$$BCLOSP 

$$BCL0S2 

$$BCMR01 

$$BCMT01 

$$BCMT02 

$$BCMT03 

$$BCMT04 

$$BCMT05 

$$BCMT06 

$$BCMT07 

$$BCTC01 

$$BDRSTR 

$$BEOMP 

$$BDUMPB 

$$BEOMPD 

$$BENDFF 

$$BENDFL 

$$BEOJ 

$$BEOJl 

$$BE0J2 

$$BEOJ3 

$$BE0J4 

$$BEDJ5 

$$BERRTN 

$$BErPRT 

$$BHDRCK 

$$BILSVC 

$$BINDEX 

$$BJCOPT 

$$BLEPRT 

$$BLISTV 

$$BLOPEN 

$$BLSTIO 

$$BMMR20 

$$BMSC^R 

$$BWU100 



Supervisor-program terminator 

Supervisor-initiator 

Supervisor-nonresident attention routine 

Supervisor-nonresident attention routine 

Supervisor-nonresident attention routine 

Supervisor-nonresident attention routine 

Supervisor-nonresident attention routine 

Supervisor-foreground initiator 

Supervisor-foreground initiator 

Supervisor-foreground initiator 

Supervisor-foreground initiator 

Supervisor- foreground initiator 

Supervisor-nonresident attention 

Supervisor-nonresident attention 

Supervisor-nonresident attention 

COBOL 

COBOL 

COBOL 

COBOL 

COBOL 

DTFCP tape open 

Monitor-EOV/EOF 

D is k- ch e ckpo in t 

Disk-checkpoint 

Disk- checkpoint 

Tape -checkpoint 

Tape-checkpoint 

ISFMS - CLOSE 

Close monitor 

Punch file close 

Close 

Magnetic Character Reader-close 

Tape EOF/EOV input-forward 

Tape CLOSE-alternate switching 

Tape CLOSE input- backward 

Tape EOV out put -forward 

Tape CLOSE 

Tape CLOSE-workfiles 

Tape- alternate switching 

CLOSE routine — BTAM 

Disk restart phase 

Supervisor -prog ram terminator 

Supervisor-progreim terminator 

supervisor- program terminator 

ISFMS- ENDFL (Load phase 2) 

ISFMS-ENDFL (Load phase 1) 

Supervisor-program terminator 

Supervisor -prog ram terminator 

Supervisor-program terminator 

Supervisor-program terminator 

Supervisor-program terminator 

Supervisor-program terminator 

CPMOD-error recovery 

Error threshold message 

Terminal test request validation and comparison 

Supervisor-program terminator 

Cylinder index in core (ISFMS) 

Job Control- OPEN TAPE routine 

Line error print routine 

List VTOC 

OPEN routine 

System control 

Magnetic Character Reader Message 

Tape open/close 

MPS utility 
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$$BMU200 

$$BMU300 

$$BC0P12 

$ $B0CPM1 

$$B0CPM2 

$$B0CPT1 

$$B0CPT2 

$$B0CPT3 

$$BOCP01 

$$BOCP02 

$$B0CP11 

$$B0CP12 

$$BODACL 

$$B0DAI1 

$$BODAIN 

$$B0DA01 

$$B0DA02 

$$B0DAO3 

$$BODAOU 

$$B0DAU1 

$$BODQUE 

$$BCDSPV 

$$BODSPW 

$$BOFLPT 

$$BOIS01 

$$BOIS02 

$$BOIS03 

$$BOIS0U 

$$BOIS05 

$$BOIS06 

$$BOIS07 

$$BOIS08 

$$BOIS09 

$$BOIS10 

$$BOMR01 

$$B0MSG1 

$$B0MSG2 

$$B0MSG3 

$$BOMSGa 

$$BCIMSG5 

$$B0MSG6 

$$BOMT0M 

$$BOMT0W 

$$BOMT01 

$$BOMT0 2 

$$BOMT03 

$$BOMT0 4 

$$BCMT05 

$$BOMT06 

$$BOOR01 

$$BOPEN 

$$BOPENC 

$$BOPENR 

$$B0PEN2 

$$BOPIGN 

$$BOPNLB 



$$B0PNR2 
$$B0RTV1 
$$B0RTV2 
$$B0SDC1 
$$B0SDC2 
$$B0SDI1 
$$B0SDI2 
$$B0SDI3 



MPS utility 

MPS utility 

DTFCP-OPEN 

Message writer 

Message writer 

Open DTFCP or DTFDI 

Open-Output tape 

Open-Output tape 

Open-Disk labels 

Open-Tape 

OPEN - IBM Processor Programs 

OPEN - IBM Processor Programs 

Close Routine -DA 

Open in put- DA 

Direct access input-OPEN (Input) 

Direct access-OPEN OUTPUT Phase 1 

Direct access-OPEN OUTPUT Phase 2 

Direct access OPEN-OUTPUT Phase 3 

Direct access OPEN-OUTPUT Phase U 

Direct access-OPEN (user) 

Dequeue JIB's 

Disk VTOC display routine 

Disk VTOC display routine 

DASD file protect 

ISFMS - OPEN I/O Phase 1 

ISFMS - OPEN I/O Phase 2 

ISFMS - OPEN I/O Phase 3 

ISFMS - OPEN I/O Phase 4 

ISFMS - OPEN I/O Phase 5 

ISFMS - OPEN I/O Phase 6 

ISFMS - OPEN I/O Phase 7 

ISFMS - OPEN I/O Phase 8 



Index sequential independent overflow area integrity 

ISFMS - OPEN 

Magnetic Character Reader-open 

Message non-abort types 

Message writer - abort types 

Message writer 

Message writer 

Message writer 

Message writer 

Tape open message 

Tape open message 

Tape OPEN input- forward-standard labels 

Tape OPEN input- backward- standard labels 

Tape OPEN output forward-standard label 

Tape OPEN output- standard labels 

Tape OPEN I/O-f orward/backward Non-standard/unlabeled 

Tape OPEN workfiles 

Optical character reader-OPEN 

Open monitor 

OPENC 

Relocation Phase 1 

Open monitor 

COBOL-open 

Locates source statement library. Directory also 

locates source statement library (for Assembler and 

COBOL) 

Relocation Phase 2 

ISFMS Open 

ISFMS Open 

Sequential disk I/O - CLOSE 

Sequential disk- close 

Sequential disk input - OPEN 

Sequential disk input - OPEN 

Sequential disk input - OPEN 
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$$BOSD01 
$$B0SD02 
$$B0SD03 
$$B0SD04 
$$B0SD05 
$$B0SD06 
$$B0SD07 
$$B0SD08 
$$B0SDW1 
$$B0SDW2 
$$B0SDW3 
$$BOSD00 
$$BOSD01 
$$BOSIGN 

$$Barcoi 

$$BODR01 

$$BOVDMP 

$$BPCHK 

$$BPDUMP 

$$BPLOSE 

$$BPSW 

$$BBMSG1 

$$BRMSG2 

$$BRSTRB 

$$BRSTRT 

$$BRSTR2 

$$BRSTR3 

$$BRSTRU 

$$BSETFF 

$$BSETFG 

$$BSETFH 

$$BSETFL 

$$BSETL 

$$BSOPEN 

$$BSYSWR 

$$BTCNCL 

$$BTERM 

$$BTNiEBG 

$$BT1030 

$$BT1050 

$$BT106 

$$BT2260 

$$BT27U0 

$$BT28U8 

$$BZCE01 

$$BZTIME 



Sequential disk output Phase 1 - OPEN 

Sequential disk output Phase 2 - OPEN 

Sequential disk OPEN output Phase 3 

Sequential disk output Phase 4 - OPEN 

Sequential disk output Phase 5 - OPEN 

Sequential disk open - Phase 6 

Sequential disk output - OPEN 

Sequential disk output - OPEN 

Sequential disk workfiles Phase 1 - OPEN 

Sequential disk workfiles Pheise 2 - OPEN 

Sequential work file Phase 3 - OPEN 

Sequential disk OPEN - output Phase 

Sequential disk OPEN - output Phase 1 

COBOL-Open 

OPEN routine 

Unit record-OPEN routine 

Disk VTOC dump 

Supervisor - program terminator 

Supervisor - program terminator 

PL/ I OPEN/CLOSE 

Supervisor - program terminator 

Message writer CHKPT-RSTRT 

CHECKPOINT -RESTART message writer 

Tape Restart 

RESTART message writer - Phase 2 

Tape amd DASD verify for restart 

DASD verify for restart 

Tape Reposition 

ISFMS load Phase 2 of SETFL 

ISFMS load Phase 3 of SETFL 

ISFMS load Phase 4 of SETFL 

ISFMS load Phase 1 of SETFL 

IS MOD - SETL 

OLTEP OPEN 

Supervisor-nonresident attention 

Cancel routine 

Supervisor - program terminator 



Terminal test request 
Terminal test module 
Terminal test module 
Terminal test module 
Terminal test module 
Terminal test module 
Terminal test module 
CE Serviceability Programs 
OLTEP 



IBM 10 30 Manual Entry and Badge Reader 
IBM 1030 
IBM 1050 
IBM 1060 
IBM 2260 
IBM 2740 
IBM 2 848 
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2. Job control and linkage editor are preferred core iirage library 

routines and begin with a dollar sign ($) followed by an alphabetic 
character. 



Job Control and Linkage Editor Routines for Disk Operating System 



$JOBCTLA 
$JOECTLD 
$JOBCTLF 
$JOECTLG 
$JOBCTLJ 
$JOECTLK 

$LNKEDT 

$LNKEDTA 

$LNKEDTC 

$LNKEDTO 

$LNKEDT2 

$LNKEDTU 
$LNKEDT6 
$LNKEDT8 
$MAINEOJ 



Job control 
Job control 
Job control 
Job control 
Job control 
Job control 



program 
program 
program 
program 
program 
program 



Linkage 
Linkage 
Linkage 
Linkage 
Linkage 
Phase 3 
Linkage 
Linkage 
Linkage 
Library 



editor - initialize/overhead - Phase 1 
editor - pass 2 processor Phase 7 
editor - catalog processor Phase 8 
editor 12-2-9 processor (ESD Only) Phase 2 
editor 12-2-9 processor (other than ESD) 

editor - control card processor Phase 4 
editor - control card processor Phase 5 
editor - MAP processor Phase 6 
routine update program 



3. The names of the supervisor and IPL programs are $$A$SUPx and 
$$A$IPLx. An additional character (x) is used to distinguish 
phases of these programs. 



Supervisor and IPL Programs for Disk Operating System 

$IPLRT2 IPL Program 

$$A$SUP1 Supervisor control program 
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Relocatable Module Identification 



Note: All components of the DOS Relocatable Library are listed here. 
For each component that has module and phase names listed 
alongside each other, a one-to-one relationship between the 
modules and phases is not necessarily intended or implied. 









Linkage Edit 




Module 


Phase 


Control 


Component 


Name 


Name 


Statements 


CONTROL PROGRAM 








Job Control 


IJBJC 


$JOBCTLA 




INCLUDE UBJC 




UBJCl 


$JOBCTLD 


// 


EXEC LNKEDT 




IJBJC2 


$JOBCTLF 








UBJC3 


$JOBCTLG 








IJBJCU 


$JOBCTLJ 








LJBJC5 


$JOBCTLK 








IJBJC6 








IPL 


UBIPL 


$IPLRT2 




INCLUDE UBIPL 




IJBIPL3 




// 


EXEC LNKEDT 


Linkage 


IJBLE 






INCLUDE UBLE 


Editor 


LJBLEl 
IJBLBI 


$LNKEDT 

$LNKEDTO 

$LNKEDT2 

$LNKEDTU 

$LNKEDT6 

$LNKEDT8 

$LNKEDTA 

$LNKEDTC 


// 


EXEC LNKEDT 


Standard 


LJBDUMPS 






INCLUDE IJBDUMPS 


System 


IJBDMPS 


$$BDUMP 


// 


EXEC LNKEDT 


Dump 


IJBDWPBS 
IJBDMPDS 
IJBDMPFS 
UBPDMPS 
IJBPDUMS 


$$BDUMPB 
$$BDUMPD 
$$BDUMPF 
$$BPDUMP 
$$BPDUM1 






Translat- 


IJBDUMPT 






INCLUDE UBDUMPT 


ing System 


UBDMPT 


$$BDUMP 


// 


EXEC LNKEDT 


Dump 


IJBDMPBT 
IJBDMPDT 
UBPBMPT 


$$BDUMPB 
$$BDUMPD 
$$BPDUMP 







Delete 
Statements 

DELETR IJB.ALL 



238 IBM S/360 DOS Sys. Gen. and Ma int. 



Librarian 
DSERV 
RESTART 
MAINT 



CSERV 



RSERV 



UBSLl 



IJBSL2 
UBLBA 
IJBLBC 
UBLBD 
IJBLBE 
OBLBF 
IJBLBG 
UBLBH 
IJBLBL 
IJBLBM 
IJBLBQ 
UBLBZ 
IJBMCS 
UBMDS 
IJBMDU 
UBMIN 
IJBNIO 
IJBMUP 

IJBLBP 



UBSL3 



DSERV 

UBRSTRT 

MAI NT 

MAINTA 

MAINTCL 

MAINTCN 

MAINTDR 

MAINTEJP 

WAINTR2 

MAINTS2 

IvIAINTUP 

$MAINEOJ 



CSERV 



RSERV 



INCLUDE IJBSLl 
// EXEC LNKEDT 



INCLUDE IJBSL2 
// EXEC LNKEDT 



INCLUDE IJBLBP 
// EXEC LNKEDT 

INCLUDE IJBSL3 
// EXEC LNKEDT 
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Linkage Edit 






Module 


Phase 


Control 


Delete 


Component 


Name 


Name 


Statments 


Statements 


SSERV 


IJBSLU 


SSERV 


INCLUDE IJBSLU 
// EXEC LNKEDT 




CORGZ 


UBS 15 


CORGZ 


INCLUDE IJBSL5 






UBLBJ 


CORGZ 2 


// EXEC LNKEDT 






IJBLBK 










UBLBS 


CORGZl 








IJBLBT 


C0RGZ3 








UBLBU 


CORGZ U 








IJBLBV 


C0RGZ5 







Ccxnmon 

Librarian 

Modules 



UBLBA 
IJBLBC 
UBLBD 
IJBLBE 
IJBLBF 
IJBLBG 
IJBLBH 
UBLBI 
UBLBJ 
UBLBL 



CE Service- ILCEAIDl 
ability ILCEAID2 

Programs 



CEAIDLST 

CEAID 

CEAIDOOl 

CEAID002 

CEAID003 

CEAID 00 a 

CEAID005 

CEAID006 



LANGUAGE TRANSLATORS 



Disk Work 

file 

assembler 



IJQD16DW 



INCLUDE UQD16DW 
// EXEC LNKEDT 



Disk Work Files 
DELETR IJQD16DW 



Tape Work 

file 

assembler 



IJQD16TW 



INCLUDE IJQD16TW 
// EXEC LNKEDT 



Tape Work Files 
DELETR IJQD16TW 



Additional 
Core, 14K 
assembler 



UQD32 



INCLUDE IJQD32 
// EXEC LNKEDT 



lUK Tape and Disk 
Work Files 
DELETR IJQD32 



Comiron 

Assembler 

Module 



UQDCOMN 



All Assemblers 
DELETR IJQ.ALL 



Addit ional 
Core, 4 UK 
Assembler 



IJYASM 



INCLUDE IJYASM 
// EXEC LNKEDT 



4 UK Tape and Disk 
Work Files 
DELETR I J Y. ALL 



Note: The assembler relocatable modules are descriptive modules used by 
the linkage editor to incorporate appropriate assembler modules 
from the relocatable library into corresponding assembler phases 
for the core image library. The descriptive modules IJQD16DW, 
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IJQD16TW, IJQD32 and IJYASM are used to determine the appropriate 
corresponding variant of the assembler to be linkage edited from 
the assembler modules in the relocatable library. IBM-supplied 
systems with 6K supervisors contain the IJQD16DW variant. 
IBM-supplied systems with 8K supervisors contain the IJQD32 
variant. 

Ihe descriptive module IJQDCOMN is nested within the lOK and mK 
descriptive modules. This module describes the appropriate relocatable 
library modules and the corresponding core image library phase structure 
for phases common to all three assembler variants. 

The following is a complete list of relocatable library modules and 
core image library phases for the assembler. 



Module 


Phase 


Delete 


Component Name 


Name 


Statements 


IJQDCOMN 


ASSEMBLY 


(Sample problems) 


♦IJQD16DW 


ASSEMOOA*+ 


DELETS Z.ASl 


+IJ0D16TW 


ASSEMOOB++ 


DELETS Z.AS2 


#UQD32 


ASSEM02 


DELETS Z.AS3 


IJQABT 


ASSENllD 




IJQDIA 


ASSENllC 




IJQDPP 


ASSENllB 




IJQDO$ 


ASSEM02A 




UADOA 


ASSEM03 




IJQD2$ 


ASSEM03A 




UQD2A 


ASSEM04 




IJQD3$ 


ASSEM04A 




UQD3A 


ASSEM04B 




IJQDUP 


ASSEM05 




IJQDUM 


ASSEM05A 




IJQD4A 


ASSEMO 5B 




IJQD5A 


ASSEM06 




UQD5P 


ASSEN07 




IJQD5M 


ASSEN07A 




UQD7$ 


ASSEN07I 




IJQD7I 


ASSEN08 




UQD8$ 


ASSEN08A 




IJQD9$ 


ASSEN088 




IJQD9I 


ASSEN09 




UQRTA 


ASSEN07C 




IJQRTB 


ASSEN08C 




UQ10$ 


ASSEN09I 




IJQIOB 


ASSENIO 




UQ21A 


ASSENIOB 




IJQ21B 


ASSENllA 

ASSENllE 

ASSEN12 

ASSEN13 

ASSENIU 





* required only for DWF variant 
+ required only for TWF variant 

# required only for additional core storage variant SU 

The following list is a complete list of the relocatable library 
modules and the core image library phases for the 44 K assembler. 
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Module 


Phase 


Name 


Name 


IJYASM 


ASSEMBLY 


IJYFO 


ASSEMABT 


UYABT 


ASSEMFI 


IJYCM 


ASSEMFPP 


UYFD 


ASSEMF8 


IJYFIO 


ASSEM3 


UYFPP 


ASSEM3E 


IJYFl 


ASSEM7 


IJYF2 




UYF3 




IJYF3E 




IJYF7C 




IJYF7D 




UYF7E 




IJYF7G 




UYF7I 




IJYF7L 




IJYF7N 




UYF7S 




IJYF7V 




UYF7X 




IJYF8A 




UYF8C 




IJYF8D 




UYF8I 




IJYF8L 




IJYF8N. 




UYF8N 




IJYF8P 




UYF8S 




IJYF8V 




UYIN 




IJYPTA 




IJYRTB 
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Li 


nkage Edit 






Module 


Phase 


Cont rol 


Delete 


Component 


Name 


Name 


Statements 


Statements 


Autotest 


IJVPT 


ATLECONT 




ACTION CLEAR 


DELETR IJV.ALL 




IJVTAB 


ATLEDT 




INCLUDE IJVPT 


(Sample 




IJVTCllO 


ATLEDTIO 


// 


EXEC LNKEDT 


problem) 




IJVTC210 


ATLEDT12 






DELETS Z.ATl 




IJVTC310 


ATLEDT14 










IJVTCmO 


ATLEDT16 










IJVTC510 


ATLEDT18 










iJvrcTio 


ATLEDTIA 










IJVTEllO 


ATLEDTIB 










IJVTE210 


ATLEDTIC 










IJVTFllO 


ATLEFCl 










IJVTGllO 


ATLEFC2 










IJVIH210 


ATLEFC3 










IJVTH310 


ATLEFCU 










IJVTDllO 


ATLEFC5 










UVTD210 


ATLEFC7 










IJVTIllO 


ATLEFDl 










UVTJllO 


ATLEFD2 










IJVTAOIO 


ATLEFEl 










IJVLE 


ATLEFE2 










IJVSSllO 


ATLEFFl 










IJVSS310 


ATLEFGl 

ATLEFH2 

ATLEFH3 

ATLEGOl 

ATLEJCTV 

$$BATST1 

$$BATST3 









Note ; The autotest calling book (IJVPT) will include the Autotest 
transients in the core image library. 



COBOL 



IJSCBD 

IJSCBLOl 

IJSCBL02 

IJSCBL03 

IJSCBL04 

IJSCBL05 

IJSCBL06 

USCBL07 

IJSCBL08 

IJSCBL09 

IJSCBLIO 

IJSCBLll 

IJSCBL12 

IJSCBI13 

IJSCBLIU 

IJSCBL15 

IJSCBL16 

IJSCBL17 

USCBL18 

IJSCBL19 

IJSCBL20 

IJSCBL21 



IJSCBD 

COBOL 

COBOLOOO 

COBOLOOl 

COBOL002 

COBOL003 

COBOL004 

COBOL005 

COBOL006 

COBOL007 

COBOL008 

COBOL009 

COBOLOIO 

COBOLOll 

COBOL 01 2 

COBOL013 

COBOLOia 

COBOL015 

COBOL016 

CO BO LO 17 

COBOL018 

COBOL019 



INCLUDE IJSCBD 
// EXEC LNKEDT 



DELETR US. ALL 
This deletes 
the debug 
program also . 
(Sample 
problem) 
DELETES Z.CBl 
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Li 


nkage Edit 




Module 


Phase 


Control 


Component 


Name 
IJSCBL22 


Name 
COBOL020 


St 


ateroents 








USCBL23 


COBOL 021 








IJSCBL2U 


COBOL022 








USCBL25 


COBOL023 








IJSCBL26 


COBOL024 








IJSCBL27 


COBOL025 








IJSCBL28 


COBOL027 








IJSCBL29 


COBOL028 








IJSCSL31 


COBOL029 








IJSCBL32 


COBOL030 








IJSCBL33 


COBOL031 








IJSCBL34 


COBOL032 








USCBL35 


COBOL033 








IJSCBL36 


COBOL034 








IJSCBL37 


COBOL035 








IJSCBL38 


COBOL036 








IJSCBL39 


COBOL037 








USCBLUO 


COBOL038 








IJSCBL41 


COBOL039 








IJSCBLa2 


COBOL 040 








IJSCBL43 


COBOLOUl 








uscBmu 


COBOL0U2 








IJSCBL45 


COBOL043 








IJSCBLt|6 


COBOL0U4 








IJSCBLU7 


COBOL050 








IJSCBL48 


COBOL055 








USCBm9 










IJSCBL50 










USCBL55 








COBOL Debug 


USDDB 


DEBUG 




INCLUDE USDDB 




IJSCBL60 




// 


EXEC LNKEDT 


FORTRAN 


ILFFO 






INCLUDE ILFFO 




ILFFORT 


FFORTRAN 


// 


EXEC LNKEDT 




ILFPAR 


FFORTl 








ILFALL 


FFORT2 








ILFUNF 


FF0RT3 








ILFGEN 


FF0RT4 








ILFEXT 


FF0RT5 








ILFROL 


FFORT9 








ILFTRBK 


FFORTRBK 







Delete 
Statements 



Basic FORTRAN 



IJTFO 
IJTFOl 
IJTFO 2 
IJTF03 
UTF04 



FORTRAN 
FORTREL 
FORTRGE 
FORTRPU 



INCLUDE IJTFO 
// EXEC LNKEDT 



DELETR ILFFO 
DELETR ILFFORT 
DELETR ILFPAR 
DELETR ILFALL 
DELETR ILFUNF 
DELETR ILFGEN 
DELETR ILFEXT 
DELETR ILFROL 
DELETR ILFTRBK 
DELETS Z.ILFSAMPL 

( Sample 

Problem) 

DELETS Z.ILFMERGE 

(Compatibility 
Merge Book) 

DELETR IJTFO 
DELETR IJTFOl 
DELETR IJTF02 
DELETR IJTFO 3 
DELETR IJTF04 
(Sample 
problem) 
DELETS Z.FOl 
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PL/ I (SYSIPT, 
SYSPCH, SYSLST 
never on 2311) 



IJXAOO PL/I INCLUDE IJXPLI DELFTR IJX.ALL 

// EXEC LNKEDT (Sample 

problem) 
DELETS Z.PLl 



PL/I (SYSIPT, IJXAOOD PL/I INCLUDE UXPLID 

SYSPCH, SYSLST // EXEC LNKEDT 

may be on 2311) 

Note: The two compiler versions differ in the first phase only, 
following list applies to both versions. 



The 



Component 





Linkage Edit 




Module 


Phase Control 


Delete 


Name 


Name Statements 


Statements 


IJXAIO 


PL/IAIO 




UXA20 


PL/IA20 




IJXA25 


PL/IA25 




UXA27 


PL/IA27 




IJXA30 


PL/IA30 




IJXA35 


PL/IA35 




IJXAU5 


PL/IA45 




IJXA50 


PL/IA50 




IJXA60 


PL/IA60 




IJXA65 


PL/IA65 




UXBIO 


PL/IB 10 




IJXB15 


PL/IB15 




UXB20 


PL/IB 20 




IJXB25 


PL/IB25 




UXB30 


PL/IB 2 5A 




IJXB40 


PL/IB30 




IJXB70 


PL/IBUO 




IJXB75 


PL/ IB 70 




IJXB80 


PL/IB75 




UXB85 


PL/IB 80 




IJXB87 


PL/IB85 




UXB90 


PL/IB 8 5A 




IJXB92 


PL/IB87 




UXB95 


PL/IB 90 




IJXB97 


PL/IB92 




IJXCOO 


PL/IB95 




UXC03 


PL/IB97 




IJXC2S 


PL/ICQO _ - , 




UXC30 


PL/IC03 




IJXC31 


PL/IC25 




UXC32 


PL/IC30 




IJXC33 


PL/IC31 




UXC34 


PL/IC32 




IJXC3aA 


PL/IC33 




IJXC3UB 


PL/IC3U 




UXC35 


PL/IC34A 
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Component 





Linkage Edit 


Module 


Phase Control 


Name 


Name Statements 


UXC37 


PL/IC34B 


IJXCUO 


PL/IC35 


UXC50 


PL/IC37 


IJXC55 


PL/IC40 


IJXC60 


PL/IC50 


IJXC65 


PL/IC55 


IJXC85 


PL/IC60 


IJXC86 


PL/IC65 


IJXC95 


PL/IC85 


IJXDOO 


PL/IC86 


IJXD03 


PL/IC95 


UXD05 


PL/ID 00 


IJXDIO 


PL/ID03 


UXDll 


PL/ID 05 


IJXD15 


PL/IDIO 


IJXD17 


PL/IDll 


UXD20 


PL/ID15 


IJXD20A 


PL/ID17 


UXDUO 


PL/ID 20 


IJXD70 


PL/ID20A 


UXD75 


PL/ID 40 


IJXD80 


PL/ID70 


IJXE25 


PL/ID75 


IJXE25A 


PL/ID80 


UXE25B 


PL/ IE 2 5 


IJXE25C 


PL/IE25A 


IJXE25D 


PL/IE 25B 


IJXE25E 


PL/E25C 


IJXE25F 


PL/IE 2 5D 


IJXE25G 


PL/IE25E 


UXE25H 


PL/IE 2 5F 


IJXE25I 


PL/IE25G 


IJXE25J 


PL/IE25H 


UXE25K 


PL/IE 2 51 


IJXE50 


PL/IE25J 


UXE55 


PL/IE25K 


IJXE60 


PL/IE50 


UXE61 


PL/IE55 


IJXF25 


PL/IE60 


IJXF35 


PL/IE 6 OA 


IJXF50 


PL/IF25 


IJXF75 


PL/IF35 


UXF90 


PL/IF50 


IJXF95 


PL/IF75 


UXGOO 


PL/IF 90 


IJXGOl 


PL/IF95 


UXG15 


PL/IGOO 


IJXG17 


PL/IGOl 


IJXG17B 


PL/IG15 


UXG17D 


PL/IG17 


IJXG17E 


PL/IG17B 


UXG17R 


PL/IG17D 


IJXG17S 


PL/IG17E 


UXG17X 


PL/IG17R 


IJXG17Y 


PL/IG17S 


UXG20 


PL/IG17X 


IJXG25 


PL/IG17Y 


IJXG30 


PL/IG20 


UXG31 


PL/IG25 


IJXGUO 


PL/IG30 


UXG55 


PL/IG31 



Delete 
Statements 
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Component 







Linkage Edit 


Module 


Phase 


Cont rol 


Name 


Name 


Statements 


♦IJXPLOSE 


PL/IGUO 




♦IJXSOO 


PL/IG55 




♦IJXSIO 


$$BPLOSE 




♦ IJXS20 


$IJKSOO 




♦IJXS30 


$IJKS10 




♦IJXS40 


$IJKS20 




♦IJXS50 


$IJKS30 




♦ UXS60 


$IJKS40 




♦IJXS70 


$IJKS50 
$IJKS60 
$IJKS70 





Delete 
Statements 



Object program IJXSYSA 
I/O modules for IJXSYSI 
2311* ♦ 

♦At system generation time, these phases are cataloged into the core 
image library along with the PL/I compiler. 

♦♦These routines are either renamed to replace IJKSYSA or IJKSYSI 
respectively or deleted from the operational volume. 
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Linkage Edit 






Module 


Phase 


Control 


Delete 


Ccmponent 


Name 


Name 


Statements 


Statements 


RPG 


IJRRG 


RPGl 


INCLUDE IJRRG 


DELETR IJR. ALL 




IJROOO 


RPGIOOIO 


// EXEC LNKEDT 


(Sample 




UROIO 


RPG10020 




problem) 




IJR020 


RPG10025 




DELETS Z.RGl 




IJR025 


RPG10030 








IJR030 


RPG10040 








IJR039 


RPG10050 








IJROUO 


RPG10060 








IJR049 


RPG10070 








UR050 


RPG10080 








IJR059 


RPG10090 








UR060 


RPGIOIOO 








IJR069 


RPGlOllO 








IJR070 


RPG10120 








IJR079 


RPG10130 








IJR080 


RPGlOlt^O 








UR089 


RPG10150 








IJR090 


RPG10160 








UR099 


RPG10170 








IJRIOO 


RPG1018A 








IJR109 


RPGl 01 8G 








IJRllO 


RPGl 0180 








IJR119 


RPGl 01 90 








UK120 


RPG10200 








IJR129 


RPG10210 








IJR130 


RPG10220 








IJR139 


RPG10230 








IJR140 


RPG102U0 








IJR149 










IJR150 










IJR159 










IJR160 










UR169 










IJR170 










IJR179 










IJR18A 










UR18F 










IJR18G 










IJR18H 










IJR180 










IJR189 










IJR190 










IJR199 










UR200 










IJR209 










UR210 










IJR219 










IJR220 










IJR229 










IJR230 










IJR239 










IJR2U0 










UR2m 










IJR2U2 










UR243 










IJR2U'* 










IJR245 










UR246 










IJR2a7 










UR2U9 
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Lii 


nkage Edit 




Module 


Phase 


Control Delete 


Component 


Name 


Name 


Statements Statements 


SORT/ MERGE 




(see Appendix D for Disk Sort/Merqe) 


Tape 


IJPSM 


TSRT 




INCLUDE UPSM DELETR UP. ALL 




UPSMOOl 


TSRTP002 


// 


LBLTYP TAPE (Sample 




IJPSM002 


TSRTP003 


// 


EXEC LNKEDT problems) 




UPSM003 


TSRTP004 




DELETS Z.Sm 




IJPSW004 


TSRTP005 
TSRTP006 
TSRTP007 
TSRTP008 
TSRTPIOI 
TSRTP102 
TSRTP103 
TSRTPIOU 
TSRTP105 
TSRTP201 
TSRTP202 
TSRTP20 3 
TSRTP204 
TSRTP301 
TSRTP302 
TSRTP303 







UTILITIES 



DELETR IJW.ALL 
(Sample 
problems) 
DELETS Z. UTDKPRl 
DELETS Z.UTDCPRl 
DELETS Z.UTTPRRl 



Alternate 


IJWAITM 


ATAM 


Track 


UWAMl 


ATAM2 


Assignment 


IJWAM2 


ATAM3 


Data Cell 


IJWAM3 


ATAMU 




UWAMU 


ATAM 5 




IJWAM5 




Alternate 


IJWAD 


ATAD 


Track 


IJWADl 


ATAD2 


Assignment- 


IJWAD2 


ATAD3 


Disk 


IJWAD 3 


ATADU 




IJWADU 


ATAD5 




IJWAD5 




Card-to-Disk 


IJWCD 


CDDK 




IJWCDl 


CDDK2 




IJWCD 3 


CDDK 3 




IJWCDU 


CDDKU 
CDDK 5 


Card-to- 


IJWCP 


CDPP 


Pr inter /Pimch 


IJWCPl 


CDPP2 




UWCP3 


CDPP 3 




IJWCP4 


CDPP4 
CDPP 5 



INCLUDE IJWALTM DELETR IJWALTM 
// EXEC LNKEDT DELETR IJWAMl 

DELETR IJWAM2 
DELETR IJWAM3 
DELETR IJWAMU 
DELETR IJWAM5 



INCLUDE UWAD 
// EXEC LNKEDT 



INCLUDE UWCD 
PHASE CDDK5, 
IJWCDCS 2 , NO AUTO 
INCLUDE IJWLAB 
// EXEC LNKEDT 



INCLUDE UWCP 
PHASE CDPP5, 
IJWCP CS 2 , NO AUTO 
INCLUDE IJWLAB 
// EXEC LNKEDT 



DELETR 
DELETR 
DELETR 
DELETR 
DELETR 
DELETR 



IJWAD 
IJWADl 
IJWAD 2 
IJWAD 3 
IJWADU 
IJWAD 5 



DELETR IJWCD 
DELETR IJWCDl 

DELETR IJWCD3 
DELETR IJWCD4 



DELETR IJWCP 
DELETR IJWCPl 

DELETR IJWCP2 
DELETR IJWCP 3 
DELETR IJWCP 4 
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Linkage Edit 




Module 


Phase 


Control 


Component 


Name 


Name 


Statements 


Card-to-Tape 


UWCT 


CDTP 




INCLUDE IJWCT 




IJ^CTl 


CDTP2 




PHASE CDTP 5, 
IJWCTCS2 , NO AUTO 




IJWCT3 


CDTP3 




INCLUDE IJWLAB 




IJWCTU 


CDTPU 


// 


LBLTYP TAPE 




UWLAB 


CDTP 5 


// 


EXEC LNKEDT 


Clear Data 


IJWCLM 


CLDC 




INCLUDE IJWCLM 


Cell 


IJWCLMl 
UWCLD2 
IJWCLD3 


CLDC2 
CLDC 3 


// 


EXEC LNKEDT 


Clear Disk 


IJWCLD 


CLRDSK 




INCLUDE IJWCLD 




IJWCLDl 


CLRD2 


// 


EXEC LNKEDT 




IJWCLD 2 


CLRD3 








IJWCLD3 








Copy Disk 


IJWKC 


CRDC 




INCLUDE UWKC 


to Card 


IJWKCl 


CRDC2 


// 


LBLTYP NSD (nn) 




IJWKC2 




// 


EXEC LNKEDT 


Copy Disk 


IJWRD 


CRDD 




INCLUDE IJWRD 


to Disk 


IJWRDl 


CRDD2 


// 


LBLTYP NSD (nn) 




IJWRD 2 




// 


EXEC LNKEDT 


Copy Disk or 


IJWKT 


CRDT 




INCLUDE IJWKT 


Data Cell 


IJWKTl 


CRDT2 


// 


LBLTYP NSD(nn) 


to Tape 


IJWKT 2 




// 


EXEC LNKEDT 


Data Cell-to- 


IJWWM 


DCDC 




INCLUDE UWMM 


Data Cell 


IJWMMl 
IJWDD3 


DCDC2 




PHASE DCDC5, 

I JWMMCS 2 , NO AUTO 




IJWDD4 


DCDC 3 




INCLUDE IJWLAB 






DCDCU 


// 


EXEC LNKEDT 






DCDC 5 






Data Cell-to- 


IJWMD 


DCDK 




INCLUDE IJWMD 


Disk 


IJWMDl 
IJWDD3 


DCDK2 




PHASE DCDK5, 
IJWMDCS2,N0AUT0 




UWDD4 


DCDK 3 




INCLUDE IJWLAB 






DCDK4 


// 


EXEC LNKEDT 






DCDK 5 






Data Cell-to- 


UWMP 


DCPR 




INCLUDE IJWMP 


Pr inter 


IJWMPl 
UWDP3 


DCPR2 




PHASE DCPR5, 
IJWMPCS2 ,N0AUT0 




IJWDTU 


DCPR3 




INCLUDE IJWLAB 






DCPRU 


// 


EXEC LNKEDT 






DCPR 5 







Delete 

Statements 
DELETR IJWCT 
DELETR IJWCT 1 

DELETR IJWCT 3 
DELETR IJWCTU 



DELETR IJWCLM 
DELETR IJWCLMl 



DELETR IJWCLD 
DELETR IJWCLDl 
DELETR IJWCLD2 
DELETR IJWCLD 3 

DELETR IJWKC 
DELETR IJWKCl 
DELETR IJWKC2 

DELETR IJWRD 
DELETR IJWRDl 
DELETR IJWRD2 

DELETR IJWKT 
DELETR IJWKTl 
DELETR IJWKT2 

DELETR UWMM 
DELETR IJWMMl 



DELETR IJWMD 
DELETR IJWMDl 



DELETR IJWMP 
DELETR IJWMPl 
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Li: 


nkage Edit 








Module 


Phase 


Control 


Delete 




Component 


Name 


Name 


Statements 


Statements 


Data Cell-to- 


IJWMT 


DCTP 




INCLUDE UWMT 


DKLETR 


IJWMT 


Tape 


IJWMTl 
IJWDT3 
IJWDT4 


DCTP2 

DCTP 3 
DCTP4 
DCTP 5 


// 
// 


PHASE DCTP5, 
IJWMTCS2,NOAUTO 
INCLUDE IJWLAB 
LBLTYP TAPE 
EXEC LNKEDT 


DELETR 


IJWMTl 


Disk- to- Card 


IJWDC 


DKCD 




INCLUDE UWDC 


DELETR 


IJWDC 




IJWDCl 


DKCD2 




PHASE DKCD5, 
IJWDCCS2,NOAUTO 


DELETR 


IJWDCl 




IJWDC 3 


DKCD 3 




INCLUDE IJWLAB 


DELETR 


IJWDC3 




IJWDC4 


DKCDU 
DKCD 5 


// 


EXEC LNKEDT 


DELETR 


IJWDC 4 


Disk-to- 


IJWDM 


DKDC 




INCLUDE IJWDM 


DELETR 


IJWDM 


Data Cell 


IJWDMl 
IJWDD3 
UWDD4 


DKDC2 

DKDC 3 
DKDCU 
DKDC 5 


// 


PHASE DKDC 5, 
IJWDMCS2 ,NOAUTO 
INCLUDE IJWLAB 
EXEC LNKEDT 


DELETR 


IJWDMl 


Disk-to-Disk 


IJWDD 


DKDK 




INCLUDE IJWDD 


DELETR 


IJWDD 




IJWDDl 


DKDK2 




PHASE DKDK5, 
IJWDDCS2 ,NOAUTO 


DELETR 


IJWDDl 




IJWDD3 


DKDK3 




INCLUDE IJWLAB 


DELETR 


IJWDD3 




IJWDD 4 


DKDK 4 
DKDK 5 


// 


EXEC LNKEDT 


DELETR 


IJWDD U 


Disk- to- 


UWDP 


DKPR 




INCLUDE IJWDP 


DELETR 


IJWDP 


Print er 


IJWDPl 


DKPR2 




PHASE DKPR5,, 

I JWDPCS2 ,NOAUTO 


DELETR 


IJWDPl 




IJWDP3 


DKPR3 




INCLUDE IJWLAB 


DELETR 


IJWDP3 




IJWDPU 


DKPR4 
DKPR5 


// 


EXEC LNKEDT 


DELETR 


IJWDP4 


Disk- to - 


UWDT 


DKTP 




INCLUDE IJWDT 


DELETR 


IJWDT 


Tape 


IJWDTl 


DKTP2 




PHASE DKTP5, 














I JWDTCS2 ,NOAUTO 


DELETR 


IJWDTl 




IJWDT3' 


DKTP3 




IWCIiUDE IJWLAB 


DBLfiTR" 3:JWUT J 




IJWDTU 


DKTP 4 
DKTP5 


// 
// 


LBLTYP TAPE 
EXEC LNKEDT 


DELETR 


IJWDT4 


Initialize 


IJWIM 


INTM 




INCLUDE IJWIM 


DELETR 


IJWIM 


Data Cell 


IJWIMl 


INTM2 


// 


EXEC LNKEDT 


DELETR 


IJWIMl 




IJWIM 2 


INTM3 






DELETR 


IJWIM2 




IJWIM3 


INTMU 






DELETR 


IJWIM 3 




UWIM4 








DELETR 


IJWIMU 


Initialize 


UWID 


INTD 




INCLUDE IJWID 


DELETR 


IJWID 


Disk 


IJWIDl 


INTD2 


// 


EXEC LNKEDT 


DELETR 


IJWIDl 




IJWID2 


INTD 3 






DELETR 


IJWID 2 




IJWID3 








DELETR 


IJWID3 




IJWID4 








DELETR 


IJWID 4 


Restore Card 


IJWRC 


CRCD 




INCLUDE UWRC 


DELETR 


IJWRC 


to Disk 






// 


LBLTYP NSD(nn) 








IJWRCl 




// 


EXEC LNKEDT 


DELETR 


IJWRCl 


Restore Tape 


IJWRT 


CRTD 




INCLUDE IJWRT 


DELETR 


IJWRT 


to Disk or 


IJWRTl 




// 


LBLTYP NSD(nn) 


DELETR 


IJWRTl 


Data Cell 






// 


EXEC LNKEDT 
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Component. 

Tape-to- 
Card 



Linkage Edit 
Module Phase Control 
Name Name Statements 

IJWTC TPCD INCLUDE LJWTC 

LJWTCl TPCD2 PHASE TPCD 5 , 

IJWTCCS 2 , NOAUTO 
IJWTC 3 TPCD3 INCLUDE UWLAB 

IJWTCU TPCD 4 // LBLTYP TAPE 
TPCD5 // EXEC LNKEDT 



Delete 
Statements 

DELETR IJWTC 
DELETE IJWTCl 

DELETR IJWTC 3 
DELETR IJWTCU 



Tape Compare 



IJWTPCP 
IJWTCP 

IJWTCP 2 
IJWTCP 3 
IJWXIT 



TPCP PHASE TPCP,*, 

NOAUTO 
TPCP 2 INCLUDE IJWTCP 
TPCP3 INCLUDE IJJCPDl 

INCLUDE UWXIT 
INCLUDE IJWTPCP 
// LBLTYP TAPE 
// EXEC LNKEDT 



DELETR IJWTPCP 
DELETR IJWTCP 

DELETR IJWTC P2 
DELETR IJWTCP3 
DELETR IJWXIT 



Tape-to- 


IJWTM 


TPDC 




INCLUDE IJWTM 


Data Cell 


IJWTMl 
IJWTD3 


TPDC2 




PHASE TPDC 5, 
IJWTMCS2 , NOAUTO 




IJWTDU 


TPDC3 




INCLUDE IJWLAB 






TPDCU 


// 


LBLTYP TAPE 






TPDC 5 


// 


EXEC LNKEDT 


Tape to Disk 


IJWTD 


TPDK 




INCLUDE IJWTD 




IJWTDl 


TPDK2 




PHASE TPDK5, 

I JWTDC S2 , NOAUTO 




IJWTD3 


TPDK3 




INCLUDE IJWLAB 




IJWTD U 


TPDKU 


// 


LBLTYP TAPE 






TPDK5 


// 


EXEC LNKEDT 


Tape to 


IJWTP 


TPPR 




INCLUDE IJWTP 


Printer 


IJWTPl 


TPPR2 




PHASE TPPR5, 

I JWTPCS2, NOAUTO 




IJWTP3 


TPPR3 




INCLUDE UWLAB 




IJWTP U 


TPPR 4 


// 


LBLTYP TAPE 






TPPR5 


// 


EXEC LNKEDT 


Tape to Tape 


IJWTT 


TPTP 




INCLUDE IJWTT 




IJWTTl 


TPrP2 




PHASE TPTPS, 

I JW'iTCS2 , NOAUTO 




IJWrT3 


TPTP3 




INCLUDE IJWLAB 




UWTTU 


TPTP 4 


// 


LBLTYP TAPE 






TPTPS 


// 


EXEC LNKEDT 


VTOC Display 


IJWLVB 


LISTVTOC 




INCLUDE IJWLVB 


(BJS) 


IJWLVl 
IJWLVT 


$$BLISTV 


// 


EXEC LNKEDT 


VTOC Display 


UWLVM 


LISTVTOC 




INCLUDE IJWLVM 


(MPS) 


IJWLVl 
UWLVT 


$$BLISTV 


// 


EXEC LNKEDT 


Note: Each of 


the above 


file to fil 


e utility programs : 



DELETR IJWTM 
DELETR IJWTMl 



DELETR IJWTD 

DELETR IJWTDl 

DELETR IJWTD 3 

DELETR IJWTD 4 



DELETR IJWTP 

DELETR IJWTPl 

DELETR IJWTP 3 

DELETR IJWTP4 



DELETR IJWTT 

DELETR IJWTTl 

DELETR IJWTT3 

DELETR IJWTT4 



DELETR IJWLVB 



DELETR IJWLVM 



IJWGEN 
UWLAB 



DELETR IJWGEN 
DELETR IJWLAB 
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The file-to-file data cell programs share the third and fourth modules 
froiT: the counterpart disk programs. 

The Clear Data Cell program shares the modules IJWCLD2 and IJWCLD3 
with the clear disk program- 







Linkage Edit 




^5odule 


Phase 


Control 


Delete 


Name 


Name 


Statements 


Statements 



Coroconent 

Note : If a user label-checking routine is to be included instead of the 
IBM-supplied label routine, this module is included instead of 
the IBM-supplied module (i.e., IJWLAB) . See the complete 
description of module names, phase names and the procedure for 
including user modules in IBM System/360 Disk and Tape Operating 
Systems,. Utility Programs: Specifications , Form C24-3465. 



Vocabulary File IJNVBL 
Utility Program IJNVCT 
UNVER 
IJNVIO 
UNVLI 
IJNVLO 
UNVOC 
IJNVUP 



VOC72BL 
VOC72BM 
VOC72BN 
VOC72CR 
VOC72ER 
VOC72LI 
VOC72LO 
VOC72PR 
VOC72UP 
VOC72UQ 
VOC72UR 
VOC72UT 



INCLUDE UNVOC 
// LBLTYP NSD(Ol) 
// EXEC LNKEDT 



DELETR UN. ALL 



COBOL SUBROUTINE 



IHDOOOOO 
IHDOOIOO 
IHD00200 
IHD00300 
IHD00400 
IHD00500 
IHD00600 
IHD0a7<H> 
IHD00800 
IHD00900 
IHDOIOOO 
IHDOllOO 
IHD01200 
IHD01300 
IHDOIUOO 
IHD01500 
IHD01600 
IHD01700 
IHD01800 
IHD01900 
IHD02000 
IHD02100 
IHD02200 
IHD02300 
IHD02U00 
IHD02500 
IHD02600 
IHD02700 



DELETR IHD.ALL 
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Component 



Module 
Nanie 

IHD02800 
IHD02900 
IHD03000 
IHD03100 
IHD03200 
IHD03300 
IHD03400 
IHD03500 
IHD03600 
IHD03700 
IHD03800 
IHD03900 
IHDOUOOO 
IHD04100 



Linkage Edit 
Phase Control 
Name Statements 



Delete 
Statements 



Basic FORTRAN SUBROUTINE 



IJTAAFR 
IJTACOM 
IJTACON 
IJTADIR 
IJTADXD 
IJTADXI 
IJTAIXI 
IJTAPST 
IJTARBE 
IJTARXI 
IJTARXR 
IJTDVCK 
IJTEXPN 
IJTFDMP 
IJTFIOS 
IJTFXIT 
IJTHEXC 
IJTIFIX 
IJTI£XP 
IJTLLOG 
IJTLSCN 
IJTLSQT 
UTLTAN 
IJTLTNH 
UTMAXD 
IJTMODI 
IJTMODR 
IJTOVRF 
UTS INT 
IJTSLIT 
UTS LOG 
IJTSMXO 
IJTSWXl 
IJTSSCN 
IJTSSQT 
UTSTAN 
IJTSTNH 



DELETR IJT.ALL 
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Component 



Module 
Name 



Linkage Edit 
Phase Control 

Name Statements 



FORTRAN SUBROUTINE 

ILFACCM 

ILFADCON 

ILFCLABS 

ILFCLAS 

ILFCLEXP 

ILFCLLOG 

ILFCLSCN 

ILFCLSQT 

ILFCSABS 

ILFCSAS 

ILFCSEXP 

ILFCSLCG 

ILFCSSCN 

ILFCSSQT 

ILFDEBUG 

ILFDIOCS 

ILFFCDXI 

ILFFCXPI 

ILFFDUMP 

ILFFDVCH 

ILFFDXPD 

ILFFDXPI 

ILFFEXIT 

ILFFINT . 

ILFFIOCS 

ILFFIXPI 

ILFFMAXD 

ILFFMAXI 

ILFFMAXR 

ILFFOVER 

ILFFRXPI 

ILFFRXPR 

ILFFSLIT 

ILFGHTAB 

ILFIBCOM 

ILFIBERR 

ILFLASCN 

ILFLATN2 

ILFLERF 

ILFLEXP 

ILFLGAMA 

ILFLLOG 

ILFLSCN 

ILFLSCNH 

ILFLSQRT 

ILFLTANH 

ILFLTNCT 

ILFNAMEL 

ILFSASCN 

ILFSATN2 

ILFSERF 

ILFSEXP 

ILFSGAMA 

ILFSLOG 

ILFSSCN 

ILFSSCNH 

ILFSSQRT 

ILFSTANH 

ILFSTNCT 

ILFTRBK 

ILFUNTAB 



Delete 
Statements 

DELETR ILF.ALL 



Appendix C 255 



Linkage Edit 
fCodule Phase Control Delete 

Component Name N ame statements Statements 



PL/I SUBROUTINES 



IJKEXHC 

IJKQALM DELSTR UK. ALL 

IJKQASM 

IJKQBLA 

IJKQBSA 

IJKQCLA 

UKQCSA 

IJKQDLA 

IJKQDSA 

IJKQLLA 

IJKQLSA 

IJKQNLD 

IJKQNSD 

IJKQQLM 

IJKQQSM 

IJKQRLB 

IJKQRSB 

IJKQSLD 

IJKQSSD 

IJKQTLB 

IJKQTSB 

IJKRBBM 

IJKRBIM 

IJKRBKA 

IJKREBM 

IJKRELM 

IJKREPM 

IJKRESM 

IJKRGIM 

IJKRGKM 

IJKRKBX 

IJKRMLX 

IJKRMPX 

IJKRMSX 

IJKRSBM 

IJKRSLM 

IJKRSPM 

IJKRSSM 

IJKRUBM 

IJKRWBM 

IJKRWLM 

IJKRWPM 

IJKRWSM 

IJKRXLM 

IJKRXSA 

UKSDMP 

IJKSDTM 

IJKSTMM 

IJKSYSA 

UKSYSI 

IJKSZBA 

IJKSZCA 
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CcitiTzonent 



Module 
Name 

UKSZLM 
IJKTCBM 
IJKTCUM 
IJKTDIM 
IJKTDPD 
IJKTFDM 
IJKTFWM 
IJKTGDI 
IJKTLCM 
UKTLIM 
IJKTIOM 
UKTLTB 
IJKTPSM 
IJKTRGM 
IJKTRON 
IJKTSI^3 
IJKTSTH 
IJKTXCF 
UKTXRM 
IJKTXRN 
IJKVBCM 
IJKVBTM 
IJKVCBM 
IJKVCEM 
IJKVCFM 
UKVCPM 
IJKVCTM 
UKVECM 
IJKVFCM 
IJKVGIM 
IJKVIGM 
IJKVIIM 
IJKVNPM 
IJKVPCM 
UKVPNM 
IJKVPRM 
IJKVRPM 
IJKVTBM 
UKVTCM 
IJKXTBM 
IJXSYSA 
IJXSYSI 



Linkage Edit 
Phase Control 
Name Statements 



Delete 
Statements 



T elecomxnunications 



BTAM RELOCATABLE MODULE AND CORE IMAGE PHASE IDENTIFICATION 



Relocatable Module Name 



IJLASC 
IJLEBD 

IJLTCD 



Table of special characters in ASCII for BSC 

Table of special characters in EBCDIC for Binary 
Synchronous Comniunication (BSC) 

Table of special characters in 6 -bit transcode (for 
Binary Synchronous Communications) 
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IJLOBY 



BSC Channel Program Models for Switched lines using 
No ID Verification (CPU-to-CPU) 



IJLCBZ 



BSC Channel Program Models for Nonswitched lines 
( CPU- to- CPU ) 



IJLOEZ 
IJLOOY 
IJLIO y 
IJLOIJ 
IJLOIZ 
IJL02J 
IJL02Z 
IJL03Z 
IJLOUZ 
IJL05Z 
IJL07J 
I JL07 Y 
IJL07Z 
IJLOSfl 
IJL08M 
IJL08P 
IJL08Q 
IJL08 R 
IJL08U 
IJL08 X 
I JL08 Y 
IJL08Z 
IJL08 9 

IJL09 Y 
IJLWrZ 
IJL@6Z 



World Trade Telegraph Terminals (WTTA) 

IBM 7770 

IBM 7772 

IBM 1030 (Auto Poll) 

IBM 1030 

IBM 1060 (Auto Poll) 

IBM 1060 

IBM 2848 Remote 

AT6T 83B3 

Western Union 115A 

IBM 1050 Nonswitched (Auto Poll) 

IBM 1050 Switched 

IBM 1050 Nonswitched 

IBM 2740 with Station Control (Auto Poll) 

IBM 2740 with Dial, Transmit Control, and Checking 

IBM 2740 with Station Control and Checking 

IBM 2740 with Dial and Checking 

IBM 2740 with Checking 

IBM 2740 with Dial and Transmit Control 

IBM 2740 with Station Control 

IBM 2740 with Dial 

IBM 2740 Basic 

IBM 2740 with Station Control and Checking (Auto 
Poll) 

TWX 33 

WTTA Subroutines 

Table Generation for 2260 Local Channel Program 



The following relocatable modules are BSC channel program models for 
switched lines using ID verification (CPU-to-CPU). The correspondence 
between relocatable module name and the codes which appear in the 
FEATURE operand sublist in the DTFBT macro instruction is indicated. 
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IJLOBA 



RIW 



IJLOBC 



SIW,RXW 



IJLQBE 
IJLCBG 
IJLOBI 
IJLOBK 
IJLOBM 
IJLOBO 
IJLOBQ 
IJLOBS 
IJLOBU 
IJLOBW 
IJLOBU 
IJL0B6 
IJLOBS 
IJLOCY 

IJLOCZ 

IJLODY 
IJLODZ 
IJLIBZ 
IJLICZ 

IJLIDZ 
IJL2DZ 



SXW.RXW 

SIX,RXW 

RXW 

SIW,RIX 

SXW,RIX 

SIX,RIX 

RIX 

SIW 

SXW 

SIX 

SIW,RIW 

SXW,,RIW 

SIX, RIW 

Channel Program Models for IBM 1130 on a point to 
point switched line 

Channel Program Models for IBM 1130 on a point to 
point non- switched line 

IBM 2780 switched point to point 

IBM 2780 non-switched point to point 

BCS S/360 Model 20 Multipoint 

Channel Program Models for a multidropped IBM 1130 on 
a multipoint line 

IBM 2780 multipoint for EBCDIC 

IBM 2780 Multipoint for USASCII or Transcode 



The following relocatable modules are translate tables for the 
devices indicated. 



IJLRASA 
IJLRCTW 
IJLRCTl 
IJLRCT2 
IJLRCT3 
IJLRC30 



Translates from USASCII to EBCDIC for BSC 

Translates from ITA2 to EBCDIC (World Trade Teletype) 

Translates from BAUDOT to EBCDIC 

Translates from TWX to EBCDIC 

Translates from ZSC3 to EBCDIC (World Trade Teletype) 

Translates from 1080 to EBCDIC 
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IJLRCUO 



Translates from 2740 to EBCDIC (lowercase) 



IJLRC50 



Translates from 1050 to EBCDIC (lowercase) 



IJLBC60 
IJLRC80 
IJLRFUO 
IJLRF50 
IJLRSCI 

IJLSASA 
IJLSCTW 
IJLSCTl 
IJLSCT2 
IJLSCT3 
IJLSD30 
IJLSD40 
IJLSD50 
IJLSD60 
IJLSD80 
IJLSSCI 



Translates from 

Translates from 

Translates from 

Translates from 

Translates from 
to 2701 via IBM 

Translates from 

Translates from 

Translates from 

Translates from 

Translates from 

Translates from 

Translates from 

Translates from 

Translates from 

Translates from 

Translates from 
to 2701 via IBM 



1060 to EBCDIC 

6-Bit TRANSOODE to EBCDIC 

2740 to EBCDIC (uppercase) 

1050 to EBCDIC (uppercase) 

DSASCII to EBCDIC with 28U8 attached 
Terminal Control Type III. 

EBCDIC to USASCII for BSC 

EBCDIC to ITA2 (World Trade Teletype! 

EBCDIC to BAUDOT 

EBCDIC to TWX 

EBCDIC to ZSC3 (World Trade Teletype) 

EBCDIC to 1030 

EBCDIC to 2740 

EBCDIC to 1050 

EBCDIC to 1060 

EBCDIC to 6-Bit TRANSCODE 

EBCDIC to USASCII with 28U8 attached 
Terminal Control Type III 



Transient Phase Names 



$$ANERP2 

$$ANERR2 
$$ANERR3 
$$ANERR4 
$$ANERR5 
$$BCTC01 
$$BETPRT 
$$BHDRCK 
$$BLEPRT 
$$BLOPEN 
$$BOTC01 



Terminal Test Module to Write out Results of BSC 
On-Line 

BTAM Error Recovery Message Writer, Phase 1 

BTAM Error Recovery Message Writer, Phase 2 

BTAM Error Recovery Message Writer, Phase 3 

BTAM Error Recovery Message Writer, Phase 4 

Close Routine 

Error Threshold Message 

Terminal Test Request Validation and Comparison 

Line Error Print Routir^e 

Line OPEN Routine 

OPEN Routine 
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$$BRESPL 



Reset Polling Lines 



$$BTCNCL 
$$BTMEBG 

$$BT1030 
$$BT1050 
$$BT1060 
$$BT2260 
$$BT27U0 
$$BT28a8 

Core Image 
Phase Names 

IJLBOT02 

IJLBOT03 

IJLBOTOU 

IJLBOT05 

IJLBOT06 

IJLBOT07 

ULBOT08 

ULBOT09 

IJLBOTIO 

IJLBOTll 

IJLB0T12 

IJLB0T13 

IJLBOTia 

IJLB0T15 

IJLB0T16 

ULB0T17 

ULB0T18 

IJLB0T19 

IJLT2ALC 

IJLT2ROT 

IJLT2TLT 



Cancel Routine 

Terminal Test Request for IBM 1030 Manual Entry and 
Badge Reader 

Terminal Test Module for IBM 1030 

Terminal Test Module for IBM 1050 

Terminal Test Module for IBM 1060 

Terminal Test Module for IBM 2260 

Terminal Test Module for IBM 27U0 

Terminal Test Module for 2260,, 1053 Remote 

Test Patterns for On-Line Terminal Tests 

Transparant EBCDIC Message 

USASCII Trcinsparency Message 

Normal EBCDIC Message 

Normal USASCII Message 

Alphameric USASCII Message 

USASCII Printer Message 

USASCII Punch Message 

TRANSCODE Printer Message 

TRANSCODE Punch Message 

TRANSCODE Multipoint Message 

EBCDIC Printer Message 

EBCDIC Punch Message 

EBCDIC Alphameric Message 

EBCDIC Vteak Pattern Message for Switched Line 

EBCDIC Weak Pattern Message for Leased Line 

TRANSCODE Weak Pattern Message for Switched Line 

TRANSCODE Weak Pattern Message for Leased Line 

EBCDIC Weak Pattern for OLE SYN Insertion 

All Character Test for IBM 28 U8 

Rotate Test for IBM 2848 

Tilt Test for IBM 28 U8 
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IJLT2TWS 
IJLT3ALC 
IJLT3ROT 
IJLT3SLA 
IJLT3TLT 
IJLT3TWS 
IJLT5ALC 
IJLT5R0T 
IJLT5SLA 
IJLT5TLT 
IJLT5TWS 
IJLT6ALC 
IJLT6 ROT 
IJLT6 SLA 
IJLT6 TLT 
IJLT6TWS 



Twist Test for IBM 2848 

All Character Test for IBM 10 30 

Rotate Test for IBM 1030 

Analyzer Test for IBM 1030 (SelectriC(g, ) 

Tilt Test for IBM 1030 

Twist Test for IBM 1030 

All Character Test for IBM 1050 or 27 UO 

Rotate Test for IBM 1050 or 27U0 

SELCTRIC Analyzer Test for IBM 1050 or 2740 

Tilt Test for IBM 1050 or 27U0 

Twist Test for IBM 1050 or 2740 

All Character Test for IBM 1060 

Rotate Test for IBM 1060 

SELECTRIC Analyzer Test for IBM 1060 

Tilt Test for IBM 1060 

Twist Test for IBM 1060 



QTAM RELOCATABLE MODULE AND CORE IMAGE PHASE IDENTIFICATION 



Relocatable Module Names 



IJLQAA 
IJLC^D 
IJLC^O 
IJLQCK 
IJLQCL 
IJLQCM 
IJLQCP 
IJLQCR 
IJLQCT 
IJLQDA 
IJLQPC 
IJLQDE 



Audio Line Appendage 

IBM 7772 Vocabulary Disk Appendage 

Breakoff (BREAKOFF) 

Checkpoint 

Change Line (STARTLN and STOPLN) 

Cancel message (CANCELM) 

Change Polling list entry (CHNGP) 

Checkpoint Request (CKREQ) 

Change terminal table entry (CHNGT) 

Disk I/O 

Copy Counters (COPYC) 

Copy terminal table entry (COPYT) 
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IJLQDL 



Distribution list 



IJLQPP 



Copy polling list entry (COPYP) 



IJLQDQ 
IJLQDT 
IJLQEA 
IJLQEB 
IJLQEC 
IJLQEP 
IJLQER 
IJLQEX 
IJLQFL 
IJLQGA 
IJLQGB 
IJLQGC 
IJLQGD 
IJLQGM 
IJLQGR 
IJLQGS 
IJLQIP 
IJLQIT 
IJLQLA 
IJLQLG 
IJLQLK 
IJLQLO 
IJLQLP 
IJLGP4C 
IJLC^I 
IJLQMM 
IJLQMP 
IJLQMT 
IJLQMW 
IJLQMO 



Copy queue control block status (COPYQ) 

Insert date in message header (DATESTMP) 

End-of-address (EOA) 

End-of -block (EOB) 

End-of -block and line correction (EOBLC) 

Normal line appendage and ERP 

Error message (ERRMSG) 

Expand message header 

DTF locator 

Get audio message 

Get audio or non-audio message (GET) 

Get audio message or non-audio message record (GET) 

Get audio message or non-audio message segment (GET) 

Get complete message (GET) 

Get message record (GET) 

Get message segment (GET) 

QTAM Implementation 

Intercept message (INTERCPT) 

Line appendage for PCI and program check 

Audio input message logging (LOGSEG) 

Look-up terminal table entry (DIRECT) 

IBM 2260 local appendage 

Time Procedure Specifications Control Routine 

Conversational mode (MODE) 

Initiate mode (MODE) 

Message-mode interface (MODE) 

Priority mode (MODE) 

Compare message type (MSGTYPE) 

Error Recovery Procedures Message Writer Subtask 

Model channel program for IBM 1030 terminals 
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IJLQMl 



Model channel program for IBM 1060 terminals 



IJLQM2 



Model channel program for IBM 2260 terminals 



IJLC^3 
ULC^iU 

IJLQM5 

IJLQM6 

IJL(^8 

IJLQM9 
IJLQNO 
IJLQNl 

IJLQN2 

IJLQN3 

IJLQN4 

IJLQN5 

IJLQN6 

IJLQN7 

IJLQN8 

IJLQOA 
IJLQOC 
IJLQPA 
IJLQPL 
IJLQPM 
IJLQPR 
IJLQPS 
IJLQP Z 
IJLQQT 



Model channel program for AT&T 83B3 terminals 

Model channel program for western Union Plan 115A 
terminals 

Model channel program for IBM 1050 switched and 
nonsw itched terminals 

Model channel program for IBM 1050 nonswitched 
terminals 

Model channel program for AT6T TWX terminals (Models 
33 and 35) 

Model channel program for IBM 2260 local terminals 

Model channel program for IBM 274 Basic terminals 

Model channel program for IBM 2740 Basic Dial 
terminals 

Model channel program for IBM 2740 terminals with 
Station Control 

Model channel program for IBM 2740 terminals with 
Station Control and Checking 

Model channel program for IBM 2740 Dial terminals 
with Transient Control and Checking 

Model channel program for IBM 2740 terminals with 
checking 

Model channel program for IBM 2740 Dial terminals 
with checking 

Model channel program for IBM 2740 Dial terminals 
with Transmit Control 

Model channel program, for World Trade Telegraph 
Terminals (WTTA) 

Operator Awareness 

Operator Control (OPCTL) 

Put audio message (PUT) 

Polling limit control (POLLIMIT) 

Put complete message (PUT) 

Put message record (PUT) 

Put message segment (PUT) 

Pause- transmit idle characters (PAUSE) 

Close message control (CLOSEMC) 
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IJLQRA 
IJLQRB 

IJLQRC 

IJLQRD 
IJLQRG 
IJLQRM 
IJLQRR 
IJLQRS 
IJLQRW 
IJLQRl 
IJLQR2 
IJLQR3 
IJLQRU 
IJLQRS 
IJLQR6 

IJLQR7 

IJLQRS 
IJLQR9 
IJLQSB 

IJLQSC 

IJLQSH 
IJLQSI 
IJLQSK 
IJLQSO 
IJLQSR 
IJLQSS 
IJLQST 
IJLQSI 
IJLQS2 



Translate table RCVARU: ARU code to EBCDIC 

Translation table RCVITA2 (EBCDIC to International 
Telegraph Alphabet No. 2) 

Translation table RCVZSC3 (EBCDIC to Figure Protected 
Code ZSC3) 

Retrieve message segment by DASD address (RETRIEVE) 

Route message (ROUTE) 

Release message (RELEASEM) 

Re-route message (REROUTE) 

Retrieve message header by sequence number (RETRIEVE) 

Physical input/ out put control 

Translate table RCV1030: 1030 to EBCDIC 

Translate table RCV1050: 1050 to EBCDIC 

Translate table RCV1050F: 1050 to monocase EBCDIC 

Translate table RCV1060: 1060 to EBCDIC 

Translate table RCV2260: 226 to EBCDIC 

Translate tables RCV83B3 or RCV115A: AT6T 83B3 or WU 
Plan 115A to EBCDIC 

Translate table RCVTWX: AT€T Models 33/35 (TWX) to 
EBCDIC 

Translate table RCV27aO: 2740 to EBCDIC 

Translate table RCV2740F: 2740 to monocase EBCDIC 

Translation table SNDITA2 (International Telegraph 
Alphabet Mo. 2 to EBCDIC) 

Translation table SNDZSC3 (Figure Protected Code ZSC3 
to EBCDIC) 

Scan message header 

Sequence- in number verification (SEQIN) 

Skip- through-character (SKIP) 

Insert sequence-out number in message header (SEQOUT) 

Source terminal name verification (SOURCE) 

Change audio line (STARTARU and STOPARU) 

Skip-on-count (SKIP) 

Translate table S1SID1030: EBCDIC to 1030 

Translate table SND1050: EBCDIC to 1050 
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IJLQSU 



Translate table SND1060: EBCDIC to 1060 



IJLQS5 

IJLQS6 

IJLQS7 

IJLQS8 
IJLQS9 

IJLQTA 
IJLQTR 

IJLQTS 
IJLQTT 



Translate table SND2260: EBCDIC to 2260 



Translate tables SND83B3 or SND115A: EBCDIC to ATST 
83B3 or WU Plan 11 5A 

Translate table SNDTWXE: EBCDIC to AT£T Models 33/35 
(TWX) (Even parity) 

Translate table SND2740: EBCDIC to 2740 

Translate table SNDTWXO: EBCDIC to AT€T Models 33/35 
(TWX) (non parity) 

World Trade Telegraph Terminals (WTTA) Line Appendage 

Code translation; used in conjunction with QTAM or 
user- provided translate table (TRANS) 

Insert time-of-day in message header (TIMESTMP) 

Terminal test recognition (LPSTART) 



Trarsient Phase Names 

$$BOQC01 QTAM Close Phase 1 

$$BOQC0 2 QTAM Close Phase 2 

$$BOQC0 3 QTAM Close Phase 3 

$$BC)QO01 QTAM QTAM Open Monitor/DASD Message Queues-Phase 1 

$$BCQO0 2 QTAM Open Line Group and Main-Storage Process/Destination 

Queues 

$$BOQO0 3 QTAM Open Checkpoint/Restart- Phase 1 

$$BOQO04 QTAM Open Checkpoint/Restart- Phase 2 

$$BOQO06 QTAM Open Main Storage Process/Destination Queues 

$$BOQO07 QTAM Open IBM 7772 Vocabulary DASD File 

$$BOGO08 QTAM Open Audio Line Group and Output Queue 

$$BQCNCL QTAM QTAM Cancel 

$$BQCNCM QTAM QTAM Cancel 

$$BC^DCK QTAM Terminal Test Header Analysis 

$$BQWTRA QTAM ARD Message Writer 

$$BQWTR1 QTAM Message Writer-Phase 1 

$$BQWTR2 QTAM Message Writer-Phase 2 

$$BQWTR3 QTAM Message Writer- Phase 3 

$$BQ1030 QTAM Terminal Test Module for IBM 1030 
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$$BQ1050 


QTAM 


$$BQ1060 


QTAM 


$$BQ2 26 


QTAM 


$$BQ27U0 


QTAM 



Terminal Test Module for IBM 1050 

Terniinal Test Module for IBM 1060 

Terminal Test Module for IBM 2260 

Terminal Test Module for IBM 27U0 

To delete the QTAM phases from the core image library, the QTAM 
modules from the relocatable library, and the QTAM books from the source 
statement library, the DELET card for the appropriate library and the 
name of the phase, module or book to be deleted must be supplied. For 
example: 

// JOB DELETE 
// EXEC MAINT 

DELETC $$BCQC01,$$BQWTRl,etc. 

DELETE ULQBO,IJLQCL,IJLQCM,etc. 

DE LETS A. BREAKOFF , A . BUFFER , A . CANCELM , et C . 
/€ 

To delete the BTAM phases from the core image library, the BTAM 
modules from the relocatable library,, and the BTAM books from the source 
statement library, the DELET card for the appropriate library and the 
name of the phase, module, or book to be deleted must be supplied. For 
exairple: 

// CRDB DEIETC 
// EXEC MAINT 

DELETC $$BCT01,$$BETPRT,etc. 

DELETC ULT2ALC,IJLT2ROT, etc. 

DELETR IJL00Y,IJL01Z,IJL02Z,,etc. 

DELETS A. CONTROL, A . LERB,, etc . 
/g 

To delete both BTAM and QTAM from the core image, relocatable and 
source statement libraries, the DELET card for the appropriate library 
and the following entries must be made: For the core image transients, 
the DELETC card with a separate entry for each transient (QTAM and BTAM) 
to be deleted must be supplied. For the core image phase names, enter 
the delete card as follows: 

DELETC $$BCTC01,$$BOOO03,$$BETPRT,etc. 
DEIETC IJLB.AIL 
DELETC ULT.ALL 

To delete from the relocatable library enter the delete card as 
follows: 

DELETR IJL-ALL 

To delete the BTAM and QTAM books from the source statement library, 
enter the DELETS card with a separate entry for each book to be deleted. 
The following example shows the required delete cards and type of 
entries to be made in those cards. 

// JOB DELETE 
// EXEC MAINT 

DELETS A. CONTROL, A. CANCELM, etc. 
/€ 
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On Line Test Executive Program (OLTEP) 
Relocatable Module Identification 



IJZABOOK 
UZAAOLT 
IJZACEOM 
UZACKTP 
IJZACMNT 
IJZACOMP 
IJZACONV 
IJZADATA 
IJZADEVD 
IJZADPRT 
IJZAEXIO 
IJZAHEAD 
UZAJOPT 
IJZAOPEN 
IJZAOPTN 
IJZAOPUT 
IJZARATA 
IJZARSLT 
IJZATEST 
IJZATIME 
IJZAWAIT 

Core Image Phase Names 

IJZAAOLT 
IJZACEOM 
IJZACKTP 
IJZACMNT 
IJZACOMP 
IJZACONV 
IJZADATA 
IJZADEVD 
IJZAHEAD 
IJZAJOPT 
IJZAOPTN 
IJZARATA 
IJZARSLT 
IJZATEST 

Transient Phase Name 

$$BSOPEN 
$$BZTIME 

The linkage editor control statements for cataloging OLTEP into the 
core image library are: 

INCLUDE UZABOOK 
// EXEC LNKEDT 

To delete OLTEP from the core image and relocatable libraries, the 
following control cards are required: 

// JOB DELETE 
// EXEC MAINT 

DELETC $$BSOPEN 

DELETC $$BZTIME 

DELETC IJZA.ALL 

DEIETR IJZ.ALL 
/€ 
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PREASSEMBIED MODULES USED TO BUILD IBM COMPONENTS 



Module 
Ncune 

IJGWEZZZ 

IJFWEZZZ 

IJFNZNZZ 

UFWZZZZ 

IJGV4ZNZZ 

IJGWZRZZ 

IJJCPDV 

UJCPDVl 

IJJCPDV2 

IJJCPDO 

IJJCPDON 

IJJCPDl 

UJOPDIN 

IJJCPD2 

UJCPD3 

IJJCPV 

IJJCPVl 

IJJCPV2 

IJJCPO 

UJCPON 

IJJCPl 

UJCPIN 

IJJCP2 

IJJCP3 

IJJPCBID 

IJJFCBZD 

IJJFCIID 

IJJFCIZD 



SOURCE STATEMENT LIBRARY MACROS 

The following are the names of the macro definitions in the source 
statement library of the IBM supplied systems residence volume. 

Supervisor File Supervisor IOCS Misc. 

Generation Definition Communications Imperatives Macros 



A. ALLOC 
A.ARUMGTYP 
A. ASMTRTAB 
A.ASSGN 
A. ATTACH 
A. BREAKOFF 
A.BTMOD 
A.BTRWC 
A.BTWAIT 
A. BUFARU 
A. BUFFER 
A. CALL 
A. CANCEL 
A.CANCELM 
A.CCB 
A.CDMOD 
A. CHECK 
A.CHECKARU 
A- CHGNTRY 
A.CHKPT 



MT,SD,MR 
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Supervisor File Supervisor IOCS Misc. 

Generation Definition Communications Imperatives Macros 



A.CHNG 

A.CHNGP 

A.C»IGT 

A.CKREQ 

A. CLOSE 

A^CIOSEMC 

A. CLOSER 

A.CNTRL 

A.CCMMN 

A.COMRG 

A.CONFG 

A. CONTROL 

A.COPYC 

A. COPYP 

A.COPYQ 

A.COPYT 

A. COUNTER 

A-CTLTBL 

A.DAMOD 

A. DATESTMP 

A.DEQ 

A. DETACH 

A.DFTRMLST 

A.DIAG 

A. DIMOD 

A. DIRECT 

A.DISEN 

A.DOSCHLV 

A.DSPIY 

A. DTFBG 

A.DTFBT 

A.DTFBTND 

A.DTFCD 

A.DTFCN 

A.DTFDA 

A.DTFDI 

A. DTFEN 

A.DTFIS 

A.DTFISl 

A.DTFIS2 

A.DTFIS3 

A-DTFMR 

A.DTFMT 

A.DTFOR 

A.DTFPH 

A.DTFPR 

A.DTFPT 

A.DTFQT 

A-DTFSD 

A. DTFSR 

A.DXMP 

A.DVCGEN 

A.ENDFL 

A.EIDRCV 

A.ENDREADY 

A. EM) SEND 

A.ENQ 

A. EGA 

A.EOB 

A.EOBLC 

A.ECJ 



8k 



B 



8k 



X 
X 

X 
X 

8k 

X 
X 

X 
X 
X 
X 
X 
X 
X 
X 

X 

8k 



IS 



Q 
Q 
Q 
Q 
Q 
Q 



B 
E 

Q 

MR 

M 
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Supervisor File Supervisor IOCS Misc. 

Generation E)ef inition Coitiiru ni cat i ons Imperatives Ma cro s 



A.ERET 

A-ERRMSG 

A. ESETL 

A.EU3CG 

A.EU3DK 

A.ED3EJ 

A.EU3ER 

A.ED3Fr 

A.EU3MS 

A.EU30S 

A.EU3PH 

A.E03PT 

A-EU3RD 

A.ED3TP 

A.EU30 

A.EWCG 

A. EU4 DK 

A.EWEJ 

A. EWER 

A.ED4FT 

A.EWIN 

A.EUUMS 

A.Emos 

A.EWPH 

A.EUUPT 

A.EmRD 

A.EmTP 

A.EWO 

A.EXCP 

A. EXIT 

A.FEOV 

A. FETCH 

A.FOPT 

A. FREE 

A. GET 

A.GETIME 

A. IJKZL 

A-IJLBTMDS 

A.IJLQBABD 

A. IJLQBFRD 

A.IJLQBRBD 

A-IJLQCKPD 

A.IJLQCTLD 

A- IJLQDEQU 

A.IJLQDSCT 

A, IJLQDTFD 

A.IJLQIPID 

A.IJLQLABD 

A.IJLQLCBD 

A.IJLQMCBD 

A. IJLQQCBD 

A.IJLQSTBD 

A. IJLQSVCD 

A.IJLQTBLD 

A. IJLQTSVC 

A.IJLQVECD 

A.INCARD 

A.INDISK 

A.INLCG 

A. INT APE 

A.INTCR 

A. INTER CPT 



X 

IS 



X 

MT,SR 



E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
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Supervisor File Supervisor IOCS Misc. 

Generation Definition Coniniunications Imperatives Macros 



A.IOTAB 

A.ISMOD 

A.ISMOD0 

A. ISMODl 

A.ISMQD2 

A, ISM0D3 

A.ISMQDU 

A.ISMOD5 

A- ISMOD6 

A.ISM0D7 

A.ISM0D8 

A.ISMCaD9 

A.LERET 

A.LCBD 

A. LERB 

A.LERPRT 

A. LINE 

A.LINETBL 

A. LIST 

A.LITE 

A. LOAD 

A.LOADA 

A-LODIS 

A. LOGSEG 

A- LOP EN 

A. LPS TART 

A.LUBGEN 

A- MODE 

A,MRMOD 

A.MSGTYPE 

A. MTMOD 

A.MVCOM 

A. NOTE 

A.ONLTST 

A.OPCTL 

A. OPEN 

A.OPENR 

A. OPT ION 

A.ORMOD 

A. OUT APE 

A. OUT CARD 

A.OOTDISK 

A.OWTLOG 

A. OUTPRT 

A.PADSE 

A.PDDMP 

A.PIOCS 

A-POINTR 

A. POINTS 



MT,SR 



Q 

B 
B 
Q 
Q 
Q 
MR 

C 
C,P 

Q 
B 

Q 



Mr,SD 
MT,SD 
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Supervisor File Supervisor IOCS Misc. 

Generat-ion Definition Communications Imperative Macros 



A-POINTW 

A. POLL 

A. POL LIMIT 

A. POST 

A.POSTARD 

A.POSTRCV 

A, POSTS END 

A.PREFIXD 

A. PBMOD 

A. PROCESS 

A. PRTOV 

A.PTMOD 

A, PUT 

A.QCBD 

A.RANDA 

A. RGB 

A.RCVHDR 

A. RCVITA2 

A.RCVSEG 

A.RCVZSC3 

A.RELNE 

A. READ 

A,RELBDF 

A.RELEASEM 

A.RELSE 

A. REPEAT 

A.RBQBUF 

A. REROUTE 

A.RESCN 

A.RESETPL 

A. RETRIEVE 

A. RETURN 

A. ROUTE 

A.RRUIS 

A.RUADA 

A.RUAIS 

A. SAVE 

A. SDMOD 

A-SEMODFI 

A. SDMODFO 

A.SEMODFU 

A. SDMOD UI 

A.SEMODUO 

A. SDMOD UU 

A. SEMODVI 

A.SEMODVO 

A. SDMOD VU 



MT,,SD 



PR 
X 



MT, SD, IS,DA,B,MR 



MT,SD,SR 



X 
X 

X 
X 

X 

X 
X 
X 
X 
X 



Q 
C 

Q 
Q 
Q 
Q 



B 
Q 

Q 

B 

Q 

B 
Q 

Q 
C 

C,P 
C,P 
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Supervisor File Supervisor IOCS Misc. 

Generation Definit.ion Communicat ions Imperative Macros 



A.SEMODW 

A. SEND 

A.SINDHDR 

A.SENDSEG 

A.SBOV 

A.SEQDA 

A. SEQIN 

A.SEQODT 

A. SETFL 

A.SETIME 

A. SET! 

A.SGDFCH 

A.SGDSK 

A. SGSVC 

A.SGTCHS 

A. SGTCON 

A.SGTHAP 

A. SGUNCK 

A. SKIP 

A.SMICR 

A.SNDITA2 

A.SMDZSCa 

A- SOURCE 

A.SRDIS 

A. STARTARU 

A.STARTLN 

A. STCBD 

A.STDJC 

A.STOPARU 

A, STOPLN 

A.STXIT 

A.SUPVR 

A.TECB 

A. TERM 

A.TERMTBL 

A. TERMTBID 

A-TIMESTMP 

A, TRANS 

A.TRNSLATE 

A.TRSRCTW 

A. TRSRCT3 

A.TRSSCTW 

A.TRSSCT3 

A.TKDNC 

A. TWAIT 

A. WAIT 

A-WAITF 

A. WAITM 



IS 
IS 



X 
X 
X 
X 
X 
X 
X 

MR 



Mr,SD,SR 



IS, DA, MR 
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Supervisor File Supervisor IOCS Misc. 
Generation Definition Commu ni cat i ons Imperative Macros 

A. WORD Q 

A.WORETBL Q 
A. WRITE MT, SD,IS,DA,B 

A.WRU Q 

Z.ASl S 

Z.AS2 S 

Z.AS3 S 

Z.ASU S 

Z .AS5 S 

Z.AS6 S 

Z.ATl S 

Z.CBl S 

Z.DELETECL D 

Z. DELETER! D 

Z.DELETESL D 

Z,EU3SPRGM S 

Z . EUU SPRGM S 

Z.FOl S 

Z.IIF MERGE F 

Z . ILFSAMPL S 

Z. LINKEDIT L 

Z.MCRl S 

Z-MCR2 S 

Z.ORDC S 

Z.ORJT S 

Z.PLl S 

Z.RGl S 

Z.SMl S 

Z.SM2 S 

z. sm S 

Z.SM5 S 

Z. SM6 S 

Z-DTDCPRl S 

Z.UTDKPRl S 

Z.UTDKPR2 S 

Z.DTDKPR3 S 

Z. UTTPPRl S 

Z .DTTPPR2 S 

Z- VFUl S 
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Key: x generally applicable 

B BTT^ 

C COBOL DASD iracros (these macros are not necessary for COBOL 

compilation or execution) 

D Delete book 

E emulator macro 

F Basic FORTRAN Compatability with FORTRAN 

I PL/I macro 

L Linkage edit book 

M display change level book 

P PL/ I DASD macros 

Q QTAM 

S* sample problem 

U utility macros 

MR magnetic character readers 

MT magnetic tape 

SD sequential DASD 

IS index sequential 

DA direct access 

SR serial 

PR printer 

8k for BPS and BOS compatibility 

* for 1285 sample problem change DEVICE on the cards with the 
sequence numbers 1054 and 1070 from DEVICE=1287 to 
DEVICE=1285 
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Appendix D. Disk Sort/Merge Modules 



The Disk Sort/Merge program residing in the relocatable library consists 
of three entries: 

1- primary processor generation modules 

2. intermediate processor generation modules 

3. relocatable object modules. 

These modules enable a user to linkage edit into the core image 
library only those modules required to tailor a generalized sort/merge 
program to specific job applications. At system generation time, the 
user can linkage edit any one of seven distinct sort/merge object 
programs into the core image library. 

The following programs can be generated at linkage edit time: 

1. The entire sort/merge program. 

2. A program that 

a. sorts fixed-length records; 

b. performs the ADDROUT option for fixed or variable- length 
record; and 

c. merges fixed or variable-length records. 
3« A program that 

a. sorts variable-length records; 

b. performs the ADDROUT option for fixed or variable-length 
records; and 

c. merges fixed or variable- length records. 
U. A program that 

a. sorts fixed or variable- length records; and 

b. performs the ADDROUT option for fixed or variable-length 
records. 

5, A program that 

a. sorts fixed-length records; and 

b- performs the ADDROUT option for fixed or variable- length 
records . 
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6. A program that 

a. sorts variable- length records; and 

b. performs the ADDROUT option for fixed or variable-length 
records. 

7. A program that merges fixed or variable- length records. 

The user should linkage edit only the Sort/Merge program that 
satisfies his particular requirements. To generate: 

Program 1. specify: INCLUDE IJOSM 

// EXEC LNKEDT 

Program 2. specify: INCLUDE IJOSMFOM 

// EXEC LNKEDT 

Program 3. specify: INCLUDE IJOSMVOM 

// EXEC LNKEDT 

Program U. specify: INCLUDE IJOSMFVS 

// EXEC LNKEDT 

Program 5. specify: INCLUDE IJOSMPOS 

// EXEC LNKEDT 

Program 6. specify: INCLUDE IJOSMVOS 

// EXEC LNKEDT 

Program 7. specify: INCLUDE IJOSMERG 

// EXEC LNKEDT 



Primary Processor Generation Books 



CATALR 


IJOSM 




INCLUDE 


UOSMPHO 




INCLUDE 


IJOSMPHl 




INCLUDE 


UOSMF23 


En 


INCLUDE 


IJOSMV23 




INCLUDE 


UOSMPHU 




END 






CATALR 


IJOSMFOM 




INCLUDE 


UOSMPHO 


1. 


INCLUDE 


UOSMPHl 


2, 


INCLUDE 


IJOSMF23 


3. 


INCLUDE 


IJOSMPH4 




END 







Entire Sort/Merge program. 



Sort program for fixed- length records. 
ADDROUT option (fixed or variable). 
Merge-only for fixed or variable- length 
records. 
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CATALR 


IJOSMVOM 




INCLUDE 


UOSMPHO 


1 


INCLUDE 


IJOSMPHl 


2 


INCLUDE 


UOSMV23 


3 


INCLUDE 


UOSMPH4 




END 






CATALR 


IJOSMFVS 




INCLUDE 


UOSMPHO 


1 


INCLUDE 


IJOSMPHl 


2 


INCLUDE 


UOSMF23 




INCLUDE 


IJOSMV23 




END 






CATALR 


IJOSMFOS 




INCLUDE 


UOSMPHO 


1. 


INCLUDE 


IJOSMPHl 


2 


INCLUDE 


UOSMF23 




END 






CATALR 


IJOSMVOS 




INCLUDE 


UOSMPHO 


1 


INCLUDE 


UOSMPHl 


2 


INCLUDE 


IJOSMV23 




END 






CATALR 


UOSMERG 




INCLUDE 


UOSMPHO 


1. 


INCLUDE 


UOSMPHU 




END 







Sort program for variable- length records. 
ADDROUT option (fixed or variable). 
Merge- only for fixed or variable -length 
records. 



Sort program for fixed or variable- length 

records. 

ADDROUT option (fixed or variable). 



Sort program for fixed-length records, 
ADDROUT option (fixed or variable) . 



Sort program for variable- length records, 
ADDROUT option (fixed or variable) , 



Merge-only program for fixed or variable- length 
records , 



Intermediate Processor Generation Books 



CATALR 



UOSMPHO 



PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 



DSORT 

UOSMOOl 

DSORT002 

IJOSM002 

DSORT003 

UOSM003 

DSORT004 

UOSM004 

DSORT005 

UOSM005 

DSORT006 

UOSM006 

DSORT007 

IJOSM007 

DSORT008 

IJOSM008 

DSORT009 
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INCUDDE 
PHASE 
INCUDDE 
END 



UOSM009 
DSORTOIO 
UOSMOIO 



CATALR 



IJOSMV23 



PHASE 


DSORT203 






INCLDDE 


UOSM203 






PHASE 


DSORT204 






INCLDDE 


UOSM20U 






PHASE 


DSORT303 






INCLUDE 


UOSM303 






PHASE 


DSORT304 






INCLUDE 


IJOSM30U 






END 








CATALR 


UOSMERG 






PHASE 


DSORTUOl 






INCLDDE 


UOSM401 






PHASE 


DSORT102 






INCLUDE 


IJCSMU02 






END 








CATALR 


UOSMPHl 






PHASE 


DSORTlOl 


1. 


IJOSMPHO 


INCLDDE 


UOSMlOl 


2. 


UOSMPHl 


PHASE 


DSORT102 


3. 


IJOSMF23 


INCLUDE 


IJCSM102 


4. 


IJOSMV23 
records. 


PHASE 


DSORTl 03 


5. 


IJ0SMPH4 


INLCDDE 


UOSM103 






PHASE 


DSORTl OU 






INCLDDE 


UOSMIOU 






PHASE 


DSORTl 05 






INCLDDE 


UOSM105 






END 








CATALR 


UOSMF23 







= Assignment Phase. 

= Phase 1. 

= Phases 2-3 for fixed-length records. 

= Phase 2-3 for variable-length 

= Merge-only or Phase U. 



PHASE 

INCLDDE 

PHASE 

INCLDDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

END 



DSORT201 
UOSM201 
DSORT202 
UOSM202 
DSORT301 
IJOSM301 
DSORT302 
IJOSM302 
DSORT501 
IJOSM501 
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Phase Names and Relocatable Module Names 



Phase Name 


Csect Name 
IJOOOllO 


Module Name 
IJOSMOOl 


Required 




Program Phase 


DSORT 






DSORr00 2 


UO00210 


IJOSM002 








DSORT 003 


IJO00310 


IJOSM003 








DSOPTOOU 


IJOOOUIO 


IJOSM004 






Assignment 


DSORT 005 


UO00510 


IJOSM005 


Always 




Phase 


DSORTOOe 


IJC00610 


IJOSM006 


required 






DSORT 00 7 


UO00710 


IJOSM007 






(Phase 0) 


DSORT 00 8 


IJO00810 


IJOSM008 








DSORT 00 9 


UO00910 


IJOSM009 








DSORT 010 


IJOOIOIO 


IJOSMOIO 








DSORTlOl 


UOlOllO 


IJOSMlOl 








DSORri02 


IJO10210 


IJOSM102 


Required 






DSORT103 


IJO10310 


IJOSM103 


for 




Phase 1 


DSORT lot* 


UOIOUIO 


IJOSM104 


Sort 






DSORT105 


IJO10510 


IJOSM105 








DSORT 201 


UO20110 


IJOSM201 


Fixed-length 




DSORr202 


IJO20210 


IJOSM202 


records : 


SORT 


Phase 2 


DSORT 20 3 


UO20310 


IJOSM203 


Variable- 


-length 




DSORT20U 


IJO20U10 


IJOSM20a 


records : 


Sort 




DSORr301 


UO30110 


IJOSM301 


Fixed-length 




DSORT 302 


IJO30210 


IJOSM302 


records : 


Sort 


Phase 3 


DSORr30 3 


IJO30310 


IJOSM303 


Variable- 


-length 




DSORT 30 U 


UO30U10 


IJOSM304 


records: 


Sort 




DSORTUOl 


IJOUOllO 


ijosmoi 


Merge- only 


Phase U 


DSORT UO 2 


UOU0210 


IJOSMU02 


operations 


(Merge) 
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Appendix E. Tape and Disk Sort/Merge Modules 



The Tape and Disk Sort/Merge prograir. residing in the relocatable library 
consists of three entries : 

• primary processor generation iriodules 

• intermediate processor generation modules 

• relocatable object modules. 

These modules enable a user to linkage edit into the core image library 
only those modules required to tailor a generalized sort/merge program 
to specific job applications. At system generation time, the user can 
linkage edit any one of six distinct sort/merge object programs into the 
core image library: 

1. The entire sort/merge program. 

2. The entire sort program. 

3. The merge program. 

U. A sort program that uses 2400 tape units as intermediate storage. 

5. A sort program that uses 2311 direct access devices as intermediate 
storage. 

6. A sort program that uses 2314 direct access devices as intermediate 
storage. 

To conserve library space, the user should linkage edit only the 
sort/merge program that satisfies his particular requirements. Note 
that an attempt to execute an option not selected will result in 
abnormal termination of the sort/merge program- To generate: 

Program 1. specify: INCLUDE ILHSALL 

// EXEC LNKEDT 

Program 2. specify: INCLUDE ILHSORT 

// EXEC LNKEDT 

Program 3. specify: INCLUDE ILHSMRG 

// EXEC LNKEDT 

Program 4. specify: INCLUDE ILHST 

// EXEC LNKEDT 

Program 5. specify: INCLUDE ILHSDl 

// EXEC LNKEDT 

Program 6. specify: INCLUDE ILHSD4 

// EXEC LNKEDT 

If the sort/merge program is generated in a system without 
multiprogramming support, the following primary processor generation 
module must be linkage edited immediately after the selected program: - 

INCLUDE ILHSNMPS 
// EXEC LNKEDT 
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Primary Processor Generation Books 



CATMiR 



ILHSALL 



INCLUDE 


ILHSPHO 


INCLUDE 


ILHSPHl 


INCLUDE 


ILHSPH2 


INCLUDE 


ILHSPH3 


END 




CATALR 


ILHSORT 


INCLUDE 


ILHSPHOS 


INCLUDE 


ILHSPHl 


INCLUDE 


ILHSPH2 


INCLUDE 


ILHSPH3S 


END 




CATALR 


ILHSMRG 


INCLUDE 


ILHSPHOM 


INCLUDE 


ILHSPH3M 


END 




CATALR 


ILHST 


INCLUDE 


ILHSPHOT 


INCLUDE 


ILHSPHIT 


INCLUDE 


ILHSPH2T 


INCLUDE 


ILHSPH3T 


END 




CATALR 


ILHSDl 


INCLUDE 


ILHSPHOl 


INCLUDE 


ILHSPHll 


INCLUDE 


ILHSPH21 


INCLUDE 


ILHSPH31 


END 




CATALR 


ILHSDU 


INCLUDE 


ILHSPHOt 


INCLUDE 


ILHSPH14 


INCLUDE 


ILHSPH24 


INCLUDE 


ILHSPH34 


END 




CATALR 


ILHSNMPS 


INCLUDE 


ILHSPHN 



Entire Sort/Merge Program 



Entire Sort Program 



Merge Program 



2U00 Sort Program 



2311 Sort Program 



23m Sort Program 



Required for systems without multiprogramming 
support 



Intermediate Processor Generation Books 



CATALR 



ILHSPHO 



PHASE 
INCLUDE 
INCLUDE 
PHASE 



SORT,+0 
ILHSPPI 
ILHSRTMG 
SORTRCL,* 
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INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

END 



ILHSRCL 

ILHSRCA 

ILHSRCM 

SORTRCB, ♦ 

ILHSRCB 

ILHSRCJ 

ILHSRCI 

SORTRCK,* 

ILHSRCK 

SORTRCC , * 

ILHSRCC 

SORTRCD,* 

ILHSRCD 

SORTRCE, ♦ 

ILHSRCE 

SORTRCF, * 

ILHSRCF 

SORTRCH, ♦ 

ILHSRCH 



Entire Sort/Merge Program 
Phase 



CATALR 



ILHSPHOS 



PHASE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

END 



SORT,+0 

ILHSPPl 

ILflSRTMG 

SORTRCL,* 

ILHSRCL 

ILHSRCA 

ILHSRCM 

SORTRCB, * 

ILHSRCB 

ILHSRCJ 

ILHSRCI 

SORTRCK, * 

ILHSRCK 

SORTRCC, ♦ 

ILHSRCC 

SORTRCD, * 

ILHSRCD 

SORTRCE,* 

ILHSRCE 

SORTRCF,* 

ILHSRCF 



Entire Sort Program 
Phase 



CATALR 

PHASE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 



ILHSPHOM 

SORT , + 

ILHSPPl 

ILHSRTMG 

SORTRCL,* 

ILHSRCL 

ILHSRCA 

ILHSRCM 

SORTRCB,* 

ILHSRCB 

SORTRCJ,* 

ILHSRCJ 

ILHSRCI 

SORTRCK,* 

ILHSRCK 

SORTRCC , ♦ 

ILHSRCC 

SORTRCD,* 

ILHSRCD 



Merge Program 
Phase 
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CATALR 


ILHSPHOM 




PHASE 


SORTRCH,* 




INCLUDE 


ILHSRCH 




END 






CATALR 


ILHSPHOT 




PHASE 


SORT,+0 




INCLUDE 


ILHSPPI 




INCLUDE 


ILHSRTMG 




PHASE 


SORTRCL,* 




INCLUDE 


ILHSRCL 




INCLUDE 


ILHSRCA 




INCLUDE 


ILHSRCM 




PHASE 


SORTRCB,* 


2U00 Sort Program 


INCLUDE 


ILHSRCB 


Phase 


PHASE 


SORTRCJ,* 




INCLUDE 


ILHSRCJ 




INCLUDE 


ILHSRCI 




PHASE 


SORTRCK,* 




INCLUDE 


ILHSRCK 




PHASE 


SORTRCC,* 




INCLUDE 


ILHSRCC 




PHASE 


SORTRCD,* 




INCLUDE 


ILHSRCD 




PHASE 


SORTRCE, * 




INCLUDE 


ILHSRCE 




END 






CATALR 


ILHSPHOl 




PHASE 


SORT, +0 




INCLUDE 


ILHSPPI 




INCLUDE 


ILHSRTMG 




PHASE 


SORTRCL, ♦ 




INCLUDE 


ILHSRCL 




INCLUDE 


ILHSRCA 




INCLUDE 


ILHSRCM 




PHASE 


SORTRCB,, ♦ 


2311 Sort Program 


INCLUDE 


ILHSRCB 


Phase 


PHASE 


SORTRCJ,* 




INCLUDE 


ILHSRCJ 




INCLUDE 


ILHSRCI 




PHASE 


SORTRCK, ♦ 




INCLUDE 


ILHSRCK 




PHASE 


SORTRCC, ♦ 




INCLUDE 


ILHSRCC 




PHASE 


SORTRCD, * 




INCLUDE 


ILHSRCD 




PHASE 


SORTRCF,* 




INCLUDE 


ILflSRCF 




END 
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CATALR 



ILHSPHOU 



PHASE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

END 



SORT,+0 

ILHSPPI 

ILHSRTMG 

SORTRCL, ♦ 

ILHSRCL 

ILHSRCA 

ILHSRCM 

SORTRCB, * 

ILHSRCB 

SORTRCJ, * 

ILHSRCJ 

ILHSRCI 

SORTRCK,* 

ILHSRCK 

SORTRCC, * 

ILHSRCC 

SORTRCD, * 

ILHSRCD 

SORTRCF,* 

ILHSRCF 



2314 Sort Program 
Phase 



CATALR 



ILHSPHN 



PHASE 

INCLUDE 

INCLUDE 

CATALR 



SORT, * 

ILHSPPI 

ILHSRTMG 

ILHSPHl 



Also required for Phase of all 
sort/merge programs in systans 
without multiprograiiiming support 



PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCIUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCIUDE 

PHASE 

INCIUDE 

PHASE 



SORTRCN, * 

ILHSRCN 

SORTRSD, ♦ 

ILHSRSD 

SORTRSE, * 

ILHSRSI 

ILHSRSE 

ILHSRMC 

SORTASA , * 

ILHSASA 

SORTROA,* 

ILHSROA 

SORTRDA,* 

ILHSRDA 

SORTRDB, * 

ILHSRDB 

SORTRDC, * 

ILHSRDC 

SORTRAA, * 

ILHSRAA 

SORTRAB, * 

ILHSRAB 

SORTRBA,* 

ILHSRBA 

SORTRBB,* 

ILHSRBB 

SORTRBC,* 

ILHSRBC 

SORTRBD,* 

ILHSRBD 

SORTRGA, * 

ILHSRGA 

SORTRGB, * 



Entire Sort Program 
Phase 1 
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INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

END 



ILHSRGB 

SORTRPA,* 

ILHSRPA 

SORTRPB,* 

ILHSRPB 



CATALR 



ILHSPHIT 



PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

END 



SORTRCN,* 

ILHSRCN 

SORTRSD,* 

ILHSRSD 

SORTRSE,,* 

ILHSRSI 

ILHSRSE 

ILHSRMC 

SORTASA, ♦ 

ILHSASA 

SORTROA, * 

ILHSROA 

SORTRDA, ♦ 

ILHSRDA 

SORTRDB, * 

ILHSRDB 

SORTRAA,* 

ILHSRAA 

SCRTRBA,* 

ILHSRBA 

SORTRBB,* 

ILHSRBB 

SORTRBD , ♦ 

ILHSRBD 

SORTRGA, ♦ 

ILHSRGA 

SORTRGB, ♦ 

ILHSRGB 

SORTRPA, ♦ 

ILHSRPA 



2400 Sort Program 
Phase 1 



CATALR 



ILHSPHll 



PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 



SORTRCN, * 

ILHSRCN 

SORTRSD, * 

ILHSRSD 

SORTRSE, * 

ILHSRSI 

ILHSRSE 

ILHSRMC 

SORTASA,, ♦ 

ILHSASA 

SORTROA,* 

ILHSROA 

SORTRDA,* 

ILHSRDA 

SORTRDB,* 

ILHSRDB 

SORTRDC, * 

ILHSRDC 

SORTRAB, * 

ILHSRAB 

SORTRBA, * 

ILHSRBA 



2311 Sort Program 
Phase 1 
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CATALR 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

END 



ILHPHLl 

SORTRBC,* 

IliiSRBC 

SORTRBD, * 

ILHSRBD 

SORTRGA, ♦ 

ILHSRGA 

SQRTRGB, ♦ 

ILHSRGB 

SORTRPB, * 

ILHSRPB 



CATALR 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLDDE 

INCLUDE 

INCLDDE 

PHAS: 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCIUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLDDE 

PHASE 

INCLDDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

END 



ILHSPHIU 

SORTRCN, * 

ILHSRCN 

SORTRSD, ♦ 

ILHSRSD 

SORTRSE , * 

ILHSRSI 

ILHSRSE 

ILHSRMC 

SORTASA,* 

ILHSASA 

SORTROA,, ♦ 

ILHSROA 

SORTRDA,,* 

ILHSRDA 

SORTRDB, ♦ 

ILHSRDB 

SORTRDC, * 

ILHSRDC 

SORTRAB, ♦ 

ILHSRAB 

SORTRBA, * 

ILHSRBA 

SCRTRBC,* 

ILHSRBC 

SORTRBD,,* 

ILHSRBD 

SORTRGA,* 

ILHSRGA 

SORTRGB,* 

ILHSRGB 

SORTRPB, * 

ILHSRPB 



23m Sort Program 
Phase 1 



CATALR 



ILHSPH2 



PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

INCLDDE 

INCLDDE 

PHASE 

INCLDDE 

INCLUDE 

INCLDDE 

INCLUDE 

INCLDDE 



SORTRSG,,* 

ILHSRSG 

SORTRSH, * 

ILHSRSH 

SORTRSJ, * 

ILHSRSM 

ILHSRSJ 

ILHSRMC 

SORTRAC, * 

ILHSRAC 

ILHSRGD 

ILHSRPC 

ILHSAAC 

ILHSASG 



Entire Sort Program 
Phase 2 
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INCLDDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLU DE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

END 



ILHSAPC 

ILHSAGD 

SORTRAD, * 

ILHSRAD 

ILHSRGE 

ILHSRPD 

ILHSAAD 

ILHSASG 

ILHSAPD 

ILHSAGE 

SORTROB , ♦ 

ILHSROB 

ILHSRBF 

ILHSASF 

ILHSAOB 

ILHSABF 



CATALR 



ILHSPH2T 



PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

END 



SORTRSG, * 

ILHSRSG 

SORTRSH,* 

ILHSRSH 

SORTRSJ,* 

ILHSRSM 

ILHSRSJ 

ILHSRMC 

SORTRAC,* 

ILHSRAC 

ILHSRGD 

ILHSRPC 

ILHSAAC 

ILHSASG 

ILHSAPC 

ILHSAGD 

SORTROB, * 

ILHSROB 

ILHSRBF 

ILHSASF 

ILHSAOB 

ILHSABF 



2400 Sort Program 
Phase 2 



CATALR 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

PRASE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLU DE 

INCLUDE 

PHASE 

INCLUDE 



ILHSPH21 

SORTRSG, * 

ILHSRSG 

SORTRSH , * 

ILHSRSH 

SORTRSJ,* 

ILHSRSM 

ILHSRSJ 

ILHSRMC 

SORTRAD,* 

ILHSRAD 

ILHSRGE 

ILHSRPD 

ILHSAAD 

ILHSASG 

ILHSAPD 

ILHSAGE 

SORTROB, * 

ILHSROB 



2311 Sort Program 
Phase 2 
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CATALR 

INCIJUDE 

INCLUDE 

INCLDDE 

INCLUDE 

END 



ILHSPH21 

ILHSRBF 

ILHSASF 

ILHSAOB 

ILHSABF 



CATALR 



ILHSPH2U 



PHASE 

INCLUDE 

PHASE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

END 



SORTRSG, ♦ 

ILHSRSG 

SORTRSH, ♦ 

ILHSRSH 

SORTRSJ, ♦ 

ILHSRSM 

ILHSRSJ 

ILHSRMC 

SORTRAD, * 

ILHSRAD 

ILHSRGE 

ILHSRPD 

ILHSAAD 

LLHSASG 

ILHSAPD 

ILHSAGE 

SORTROB , * 

ILHSROB 

ILHSRBF 

ILHSASF 

ILHSAOB 

ILHSABF 



231U Sort Program 
Phase 2 



CATALR 



ILHSPH3 



PHASE 

INCLUDE 

INCLUDE 

INCIUDE 

PHASE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

LNCLUDE 

END 



SORTRSM, * 

ILHSRSW 

ILHSRSE 

ILHSRMC 

SORTRSN, * 

ILHSRSN 

ILHSRMC 

SORTROC,,* 

ILHSROC 

ILHSRBG 

ILHSRPE 

ILHSAOC 

ILHSABG 

ILHSASK 

ILHSASL 

SORTRGH, * 

ILHSRGH 

ILHSAGH 

ILHSAPH 

SORTRGF , * 

ILHSRGF 

ILHSAGF 

ILHSAPF 

SORTRGG,* 

ILHSRGG 

ILHSAGG 

ILHSAPG 



Entire Sort /Merge Program 
Phase 3 
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CATALR 



ILHSPH3S 



PHASE 

INCLUDE 

INCLDDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

END 



SORTRSM,* 

ILHSRSM 

LLHSRSE 

IIHSRMC 

SORTRSN, * 

ILHSRSN 

ILHSRMC 

SORTROC,* 

ILHSROC 

ILHSRBG 

ILHSRPE 

LLHSAOC 

ILHSABG 

ILHSASK 

ILHSASL 

SORTRGF, * 

ILHSRGF 

ILHSAGF 

ILHSAPF 

SORTRGG, * 

LLHSRGG 

ILHSAGG 

ILHSAPG 



Entire Sort Program 
Phase 3 



CATALR 



ILHSPH3M 



PHASE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

PHA^ 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

END 



SORTRCN, ♦ 

ILHSRCN 

SORTRSM,* 

ILHSRSM 

ILHSRSE 

ILHSRMC 

SORTRSN , ♦ 

ILHSRSN 

ILHSRMC 

SORTROC, * 

ILHSROC 

ILHSRBG 

ILHSRPE 

ILHSACC 

ILHSABG 

ILHSASK 

ILHSASL 

SORTRGH,* 

ILHSRGH 

ILHSAGH 

ILHSAPH 



Merge Program 
Phase 3 



CATALR 



ILHSPh3T 



PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 



SORTRSM,* 

ILHSRSM 

ILHSRSE 

ILHSRMC 

SORTRSN, * 

ILHSRSN 

ILHSRMC 

SORTROC , * 

ILHSROC 

ILHSRBG 

ILHSRPE 



2400 Sort Program 
Phase 3 
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INCLUDE 

INCLU DE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

END 



ILHSAOC 

ILHSABG 

ILHSASK 

ILHSASL 

SORTRGF,* 

ILriSRGF 

ILHSAGF 

ILHSAPF 



CATALR 



ILHSPH31 



PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

END 



SORTRS^^, * 

ILHSRSM 

ILHSRSE 

ILflSRMC 

SCRTRSN,* 

ILHSRSN 

ILHSRMC 

SORTROC, * 

ILHSROC 

ILHSRBG 

ILHSRPE 

ILHSAOC 

ILHSABG 

ILHSASK 

ILHSASL 

SORTRGF , * 

ILHSRGF 

ILHSAGF 

ILHSAPF 

SORTRGG,* 

ILHSRGG 

ILHSAGG 

ILHSAPG 



2311 Sort Prog rani 
Phase 3 



CATALR 



ILHSPH3U 



PHASE 

INCLUDE 

Il^LUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

PHASE 

INCLUDE 

INCLUDE 

INCLUDE 

END 



SORTRSM, ♦ 

ILHSRSM 

ILHSRSE 

ILHSRMC 

SORTRSM,* 

ILHSPSN 

ILHSRMC 

SORTROC, * 

ILHSROC 

ILHSRBG 

ILHSRPE 

ILHSAOC 

ILHSABG 

ILHSASK 

ILHSASL 

SORTRGF, * 

ILHSRGF 

ILHSAGF 

I LHSAPF 

SORTRGG, * 

ILHSRGG 

ILHSAGG 

ILHSAPG 



2314 Sort Program 
P has e 3 
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Phase Names and Relocatable Module Names 



Phase Nam* 


5 CSECT (Module Require 


d Proqram Phase 




Name 






SCRT 


ILHSPPI 


A 


0-3 




ILHSRTMG 


A 





SORTRCA 


IIHSRCL 


A 







ILHSRCA 


A 







ILHSRCM 


A 





SORTRCB 


ILHSRCB 


A 







ILHSRCI 


A 







ILHSRCJ 


A 





SORTRCK 


ILHSRCK 


A 





SORTRCC 


ILHSRCC 


A 





SORTRCD 


ILHSRCD 


A 





SOKTRCE 


ILHSRCE 


T 





SORTRCF 


ILHSRCF 


D 





SORTRCH 


ILHSRCH 


M 





SORTRCN 


ILHSRCN 


A 


1,2,3 


SORTRCD 


ILHSRSD 


S 


1 


SORTRSE 


ILHSRSI 


S 


1 




ILHSRSE 


S 


1 




ILHSRMC 


S 


1 


SORTA.SA 


ILHSASA 


S 


1 


SORTROA 


ILHSROA 


S 


1 




ILHSAOA 


S 


1 


SORTRDA 


ILHSRDA 


S 


1 




ILHSADA 


S 


1 


SORTRDB 


ILHSRDB 


S 


1 




ILHSADB 


S 


1 


SORTRDC 


ILHSRDC 


D 


1 




ILHSADC 


D 


1 


SORTRAA 


ILHSRAA 


T 


1 




ILHSAAA 


T 


1 


SORTRAB 


ILHSRAB 


D 


1 




ILHSAAB 


D 


1 


SORTRBA 


ILHSRBA 


S 


1 




ILHSABA 


S 


1 


SORTRBB 


ILHSRBB 


T 


1 




ILHSABB 


T 


1 


SORTRBC 


ILHSRBC 


D 


1 




ILHSABC 


D 


1 


SORTRBD 


ILHSRBD 


S 


1 




ILHSABD 


S 


1 


SORTRGA 


ILHSRGA 


s 


1 




ILHSAGA 


s 


1 


SORTRGB 


ILHSRGB 


s 


1 




ILHSAGB 


s 


1 


SORTRPA 


ILHSRPA 


T 


1 




ILHSAPA 


T 


1 


SORTRPB 


ILHSRPB 


D 


1 




ILHSAPB 


D 


1 


SORTRSG 


ILHSRSG 


S 


2 


SORTRSH 


ILHSRSH 


s 


2 


SORTRSJ 


ILHSRSM 


s 


2 




ILHSRSJ 


s 


2 




ILHSRMC 


s 


2 


SORTRAC 


ILHSRAC 


T 


2 




ILHSRGD 


T 


2 




ILHSRPC 


T 


2 




ILHSAAC 


T 


2 




ILHSASG 


s 


2 




ILHSAPC 


T 


2 
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SORTRAD 



SORTROB 



SORTRSM 
SORTRSN 

SORTROC 



SORTRGH 



SORTRGF 



SORTRGG 



ILHSAGD 
ILHSRAD 
ILHSRGE 
ILHSRPD 
ILHSAAD 
ILHSASG 
ILHSAPD 
ILHSAGE 
ILHSROB 
ILHSRBF 
ILHSASF 
ILHSAOB 
ILHSABF 
ILHSRSM 
ILHSRSN 
ILHSRMC 
ILHSROC 
ILHSRBG 
ILHSRPE 
ILHSAOC 
ILHSABG 
ILHSASK 
ILHSASL 
ILHSRGH 
ILHSAGH 
ILHSAPH 
ILHSRGF 
ILHSAGF 
ILHSAPF 
ILRSRGG 
ILHSAGG 
ILHSAPG 



T 
D 
D 
D 
D 
S 
D 
D 
S 
S 
S 

s 
s 

M 
A 
A 
A 
A 
A 
A 
A 
A 
A 
M 
M 
M 
S 
S 
S 
D 
D 
D 



KEY 



A - All programs 

D - Direct access (2311,2314) Sort Programs 

M - Merge Program 

S - Entire Sort Program 

T - 2 400 Sort Program 
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Appendix F. BPS Device Type 

Specifications (DD) 

The following device type codes can be entered in the Basic Programming 
Support ASSGN cards: 

CI 1052 Printer -Keyboard 

Dl 2311 Disk Drive 

D3 2314 Disk Drive 

LI 1403 or mOH Printer 

L2 1UU3 or 14U5 Printer 

PI 2540 Card Read- Punch (punching only) 

P2 14 42 Card Read-Punch (punching only) 

P3 2520 Card Read- Punch (punching only) 

RO 2671 Paper Tape Reader 

Rl 25 40 Card Read- Punch (reading only) 

R2 2540 Using Punch-Read- Feed feature 

R3 14 42 Card Read-Punch (reading or reading and punching for combined 

files) 

R4 25 01 Card Reader 

R5 25 20 Card Read-Punch (reading or reading and punching for combined 

files) 

RR 12 85 Optical Reader 

ST STR devices attached to 2701 

Tl 24 00 7-track Tape 

T2 2400 9-track Tape 
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Appendix G. Storage Requirements 



Internal Storage Requirements 

This sec±ion contains the data required for estimating three values: 
1- The size of the supervisor required for a generated system, 

2. The amount of main storage required at object-time for the 
supervisor and IOCS macro instructions, and 

3. The internal storage requirements for relocatable subroutines 
required by COBOL, FORTRAN, Basic FORTRAN, and PL/I. 

The supervisor size can be used to determine the size of the available 
problem-program area. Note that the background problem- program area 
must be at least 10,240 bytes when the Disk Operating System is used. 
However, if the COBOL compiler or the Assembler with both disk and tape 
work files is a part of the system, the minimum background area must be 
14,336 bytes. If Assembler F is part of the system, the minimum 
backgroimd area must be 45,056 bytes. The supervisor varies in size 
f roir system to system according to the options chosen by the user and to 
the machine configuration. 

The storage estimates shown in this publication are within 15% variance 
of actual requirements. 

Supervisor 

Figure 50 gives the main storage requirements for the base supervisors 
and the elements that can be included in a tailored supervisor. The 
base supervisor requirement for the batched job system is 5,902 bytes. 
Additional storage requirements must be added to the base requirement 
for each additional supervisor element desired that is not within the 
base requirement- For example, for OC=YES (FOPT) iinder batched job 
system, add 176 bytes to the base storage requirement (5,902 bytes). 
The base requirement for the MPS=YES supervisor is 6,870 bytes. For 
basic Telecommunication under MPS=YES, i.e. TP = BTAM, add 280 bytes to 
the base requirement for the MPS supervisor, thus an MPS supervisor that 
includes basic Telecommunication requires 7,150 bytes (see Figure 50). 
(Note that QTAM requires an MPS supervisor.) Thus, by the time the 
supervisor is tailored to the installation requirements, it usually is 
larger than the base requirements. 

Note the relationship between the actual number of bytes in the 6K 
and 8K supervisors shipped by IBM and the number of bytes specified in 
the SEND macro for the respective supervisor. 

Size of Supervisor Address Specified 

Shipped by IBM (in bytes) In SEND Macro (in bytes) 
6,144 6,144 

6,592 8,192 

The SEND macro specifies the beginning of the problem program area to 
facilitate system generation. Depending on the combination of 
supervisory functions chosen, a supervisor greater than 6,144 bytes may 
be generated - 
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Note ; All supervisor generation options are described in the section 
Macro Instructions For Generating a Supervisor . 



Supervisor Element 



Required Routines (Basic 
Size)-SUPVR 

SVC Interruption Handling 
System Loader (FETCH and 

LOAD) 
I/O Units Control Tables 

(LUBS, PUBS, and JIBS) 
General Entry and Exit 

Routines 
Coirmunication Region 
Transient Area 
End of Job Step 
Physical IOCS (including 

Selector Channel 

Support) 
Storage Protection 

(with MP) 



Optional Routines 
Magnetic Character Options 



Teleprocessing Options 
BTAM 
QTAM 

Multitasking 



lUOl/lUUO/1460 
Emulator 



G^ieration 
Operand 



SYSTEM=DISK 



MICR=mi2 or 1419 
(for 1259 see Note 1) 

MICR=im9D 



TP=BTAM 
TP=QTAMn(Note 2) 



AP=YES 

(Includes WAITM=YES) 

EU=YES 

IBM Model 20 30 
IBM Model 2040 



NO 



5902 



1440 



1284 



376 



200 
136 



MPS= 
YES 



6870 



1524 



1384 



"T 

I BJF 

-4 



280 
872+ [A] 



2256 



19 2 
120 



7166 



1524 



1384 



280 
872+ [A] 



2256 



184 
112 



L 



Figure 50. Supervisor Main Storage Requirements (Bytes) (Part 1 of 6) 
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1 Generation 




MPS= 




1 Supervisor Element 


[Operand 


1 


— -r 


-T — : 




1 


|N0 


I YES 


|BJF 


j. 


_+ 


-+ 


-+ 


-+ 


1 Configuration Options-CONFG | 








1 Model 30 


|MODEL=30 


|0 


|0 


|0 


1 Model 40 


|MODEL=U0 








1 Model 50 


|MODEL=50 






|0 


1 Storage Protection 


1 SP=YES 


|112 


|0 


|0 


j Decimal Feature 


|DEC=YES 


|0 


1 


|0 


1 Floating Point Feature 


1 FP=YES 


|0 


|112 


|112 


1 Timer Feature 


|TIMER=YES 

1 (with AP=YES, 

1 add 50 bytes) 


|6U 


1 60 


1 64 




|TIMER=YES (with any 


|160 


1 156 


1156 




1 MICR support) 








1 


_j 


_4. 


J. 


J. 


r 


r — 


T 


T — 


t 


1 Functional Supervisor 


1 








1 Options-FOPT 


1 

H 

1 








1 r 

1 |User Option to Handle 




1 \ T T 


H 








1 1 Operator | 


1 








1 |Oomm. jProg Ck|Int Timer j 








1 y -,. ^ 


_^- 


L 


J. 


X , 


T 




J. ^ 


i 1 ^ 1 1 


|OC=YES 


|176 


160 


152 1 


11 1^1 


1 PC = YES 


|128 


200 


200 1 


II 1 1 X 


|IT=BG,F1,F2 


|U20 


416 


392 1 


1 1 X 1 1 X 


iNote: If AP=YES whe 


n|424 
1440 


408 
432 


408 1 


11 1 ^ 1 X 


1 PC=YES, add 150 


432 1 


1 1 X 1 X 1 


1 bytes . 


|26U 


264 


264 1 


1 1 X I X 1 X 


1 If OC=YES when 
j any MICR support 
1 is included, add 
1 50 bytes. 


1 464 


472 


472 1 


J L JL X 


_4 


-+ 


— T 


-T -• 


|CE Serviceability Programs 


|CE=YES (Note 3) 


|864 


i 864 


1 850 




|CE=n (Note 9) 

1 

|SKSEP=YES or n 


|n+224 

-+ 

|288+4(n) 


|n+22U 
+1 288+4 (n) 


|n+210 

-+ 

+j 288+4 (n) H 


1 Seek Separation 




1 (Note 4) 


1 ta]+[b] 


1 [a] + [b] 


1 [a]+[b] 




1 


-+ 


-+ 


-+ 


1 Physical Transient Overlap 


|PTO=YES (Note 5) 

1 

|CBF=n 


-+— 

|554+106n 


1416 

--+ 

1 602+106n 


(424 

-+ 

1 602+106n 


1 Console Buffering 




|n may be 1 to 9 




1 


i 




1 buffers 




1 


1 




1 (If CHANQ is not 




1 


1 




lelected — Note 6) 


1546+106n 


|602+106n 


|602+106n 


L 


_j 


_± 


—J. 


._± 



Figure 50. Supervisor Main Storage Requirements (Bytes) (Part 2 of 6) 
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I ■ ■ " ' ■■ - 1 

1 1 Generation 

(Supervisor Element j Operand 

1 1 

^ + 

1 Functional Supervisor | 

1 Options - FOPT (continued) 

i i 


-T 

L 


MPS= 




r 

JNO 

-+ 


|YES 
-+ 


|BJF 


1 Multiple 
1 Wait 




|WAITM=YES 
1 (Note 7) 


i 40 


1 40 


1 40 


1 Abnormal 

1 Termination 




1 AB=YES 
1 (without 
1 AP=YES ) 
1 AB=YES 
1 (with 
1 AP=YES) 


1 472 


|U56 
|600 


|456 
|600 


jTrack Hold 




1 TRKHLD=n 
1 (without 
1 AP=YES ) 
1 (Note 8) 
1 TRKHLD=n 
1 (with 
1 AP=YES) 
1 (Note 8) 


1 


|660 
|+12n 

|750 
|+12n 


1660 
|+12n 

|750 
I+12n 


[Tape Error Statistics 
1 Command Chaining 


|TEB=n 
.__+ 

|CCHAIN=YES 


|42+8n 

-+ 

1 24 


|3U+8n 
1 2U 


|3U+8n 

-+ 

1 24 


1 Disk System Input and 
1 Output Files 

jDASD File Protection 
1 (with 2321) 

1 (with Disk) 


|SYSFIL=(2311 or 2314 

1 [,ni,n2]) 

I. 

1 DASDFP=ni , n^ , dev 


|424 

-+ 

|528+24x 
1 (na-Hi) 
1 

|U56+24x 


1440 

-+ 

|4U8+24x 
1 (na-n^) 

-+ 

|368+24x 


|440 

-+ 

|440+2Ux 
1 (na-Ua.) 

|38U+24x 




and 
and 




1 (na-ni) 


1 (na-nj.) 

-4 


1 (ua-ni) 


jDASDFP (with 2321) 
1 Disk SYSFIL 


|912+24x 
1 (na-na.) 

L _, , . _ .„ . 


1 846+24X 
1 (na-na.) 
. j. 


|968+24x 
1 (na-n^) 
- -j- 


IDASDFP (with 2311) 
1 Disk SYSFIL 


|848+24x 
1 (na-na.) 


|740+24x 
1 (na-na.) 


|908+24x 
1 (na-na.) 



Figure 50. Supervisor Main Storage Requirements (Bytes) (Part 3 of 6) 
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r T 


X 




— ~ 


- 




- 




1 Generation 






MPS 








1 Supervisor Element 


Operand 


1 












1 




— r 




T 








JNO 




|YES 




|BJF 




^ 




4- 




--f 





~f 





|Job Control Options- STDJC 
















1 (Job Control options 
















1 affect only the 
















1 contents of the 
















1 comnuni cat ions region. 
















1 not its size-) 
















1 Physical ICX:s Support- PIOCS 
















1 Selector Channel Support 


|SELCH=YES 


|16 




|16 




|16 




1 Burst Mode on Multiplexor 


1 BMPX=YES 


|48 




1 48 




|48 




1 Channel 
















1 Channel Switching Tape 
















1 Cont rol 
















1 2404 or 280U 


j CHANSW=RWTAD 


|U0 




1 32 




|32 




1 2816 only 


1 CHANSW=TSWTCH 


|40 




|32 




|32 




1 Tape Support 
































1 or 7-track only 


1 TAPE =7 


|64 




|48 




|48 




I 9- track only 

|. 

1 Allocate 


|TAPE=9 
1 ALLOC 


156 

io 




|16 

--+ 

10 




|16 

~+ 

|0 










j. 




\ 





— 1 





~+ 





[input/Output Tables-IOTAB 
















1 Nuirber of I/O devices on 


j IODEV=n 


|8(n- 


-10) 


|8(n- 


-10) 


|8(n- 


-10) 


1 system 
















1 Nairber of programmer 


1 BGPGR=n 


|2(n- 


■10) 


|2(n- 


■10) 


|2(n- 


-10) 


1 logical units 


|F2PGR=n 
lFlPGR=n 






|2(n- 
|2(n- 


-5) 
■5) 






1 Number of Channel Queue 


1 CHANQ=n 


|6(n- 


-6) 


|6(n- 


-6) 


|6(n- 


-6) 


1 Entries 


1 (Note 6) 














1 Number of Job Information 


1 JIB=n 


|4(n- 


-5) 


14 (n- 


-5) 


|4(n- 


-5) 


1 Blocks 

















Figure 50. Supervisor Main Storage Requirements (Bytes) (Part 4 of 6) 
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Note 1. 



Note 2, 



Note 3. 



Note U, 



Note 5. 



Note 6. 



A 1259 is addressed as a 1419 single address adapter machine i.e. 
MICR=1419. 



MPS=YES or BJF is required for TP=QTAMn. 
supervisor support. 



TP=QTAMn includes BTAM 



Telecommunications requires a minimum of two channels: one for the 
telecommunications; the other for the system resident device. An IBM 
2701 Line Adapter Unit attached to an IBM System/ 360, Model 25, must 
be placed on the multiplexor channel. 

If AP=YES when TP=QTAMn, then the quantity A must be added to the 
basic storage requirement for TP=QTAMn. A=U4+(n-2) 12, where n is the 
value elected for TP=QTAMn. 

If PTO=YES when CE=YES or CE=n, add 8 bytes to the CE storage 
requirement. The number of bytes indicated is the current storage 
requirement. In the future, these storage requirements may increase. 

When SKSEP=YES, n (in the formula) equals the number of DASD devices 
specified at system generation time. When SKSEP=n, n (in the formula) 
is the number of DASD devices supported as specified, but cannot be 
less than the number specified at system generation time. In either 
case, a (in the formula) is the 8 bytes required if DASDFP and/ or 
SYSFIL options are selected,, and b (in the formula) is the 8 bytes 
required if Teleprocessing (TP) option is selected. 

PTO=YES requires that MPS=YES or MPS=BJF for Physical Transient 
Overlap (PTO) support to be generated. For a description of Physical 
Transient Overlap (PTO) , refer to IBM Svstems/360 DOS Timing Estimates 
listed on the cover of this manual. 

The selection of the CBF option results in extra channel queue usage. 
Consider this when requesting the number of CHANQ entries. Thus, 
specification of the CBF option and election of the CHANQ default, 
which is 6 channel queue entries, results in the number of buffers 
specified being added to the CHANQ default. However, when both the 
CBF and CHANQ options are specified, the number of CHANQ entries 
desired should be increased by the number of buffers specified. 
Otherwise, the number of entries generated in the channel queue will 
be less than desired. 



Figure 50- Supervisor Main Storage Requirements (Bytes) (Part 5 of 6) 
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Note 7. WAITM=YES is assumed when AP=Y£S. 

Note 8. Where n equals the maximum number of tracks (1-255) to be held at any 
given time by the entire system. The default is 10 if n is an invalid 
parameter (non-numeric or outside the ranger 1-255). 

Note 9. If PTO=YES when CE=n, add 8 bytes to the CE storage requirement. In 
addition, if any of the following options are elected along with CE, 
subtract 8 bytes from the CE storage requirement under MPS=NO, or 
MPS=YES and subtract 24 bytes from the CE storage requireirent under 
MPS=BJF. 

• Multitasking (AP=YES) 

• Track Hold (TRKHLD=n) 

• Abnormal Termination (AB=YES) 

The nuirtoer of bytes indicated is the current storage requirement, 
where n is a minimum of 600 bytes. In the future, these storage 
requirements may increase. 



Figure 50. Supervisor Main Storage Requirements (Bytes) (Part 6 of 6) 

Supervisor size increases are not necessarily linear. For example, compare the size 
requirements of the separate entries OG=YES and PC=YES with the combined entry 
OC=YES,PC=YES. Combinations of elements may result in an actual supervisor size that is 
smaller than the calculated total derived for the same supervisor. 

The I/O unit control tables in the IBM-supplied supervisor contain entries for up to 10 
physical units and the first 10 programmer logical units. (See the IBM System/ 360 DOS 
System Control and System Service Programs publication listed on the front cover of this 
publication for a discussion of these tables.) The I/O table provides six channel queue 
positions and five job information blocks (JIB). As a miniinum, 12 I/O devices and 
program check interrupts can be included within a 6, 144 byte supervisor. 

Because storage is protected in increments of 2K and other considerations, a DOS 
supervisor generated with any of the following options (with the exception of 
multitasking which forces the storage protection boundary to 10,240 bytes) requires a 
minimum of 8,192 bytes: 

• Multiprogramming 

• Telecommunications 

• DASD File Protection 

• Disk System Input/Output 

• 1259/1412/1419 Magnetic Character Readers 

If foreground areas are not used, the batch-job supervisor would probably be more useful 
because the multiprogramming supervisor requires additional space and time to perform its 
f unct ions . 
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Computing the Size o£ a Supervisor 

As an example,, assume a supervisor is generated using the macros shown in Figure 51. The 
size of this supervisor is determined as illustrated. 



GENERATION OPERAND 



MAIN STORAGE 
REQUIREMENT (bytes) 



SUPVR 

SYSTEM=DISK 
MPS=YES 



6870 



CONPG 

MODEL=aO 

SP=YES 

DEC=YES 

FP=YES 

TIMER=YES 









112 

60 



STDJC 



FOPT 



IT=BG 

PC=YES 

OC=YES 

CCHAIN=YES 

DASDFP=<1, 2, 2321) 

SYSFIL=2311 

TEB=U 



[846 + 24(2-1)] = 



34 + 8(4) = 



472 



24 

870 

66 



PIOCS 

CHANSW=RWTAU 

TAPE=7 

BMPX=YES 



32 

48 
48 



lOTAB 

JIB=10 

CHANQ=10 

F1PGR=8 

F2PGR=8 

IODEV=10 

BGPGR=10 



4(n-5) 


= 


20 


6(n-6) 


= 


24 


2(n-5) 


= 


6 


2(n-5) 


= 


6 


8(n-10) 


= 





2(n-10) 


= 


(Note 1) 



Total Number of Bytes 



8658 



Note 1: If entry for BGPGR is below minimum requirement, n=10 is assumed. The following 
WNOTE is obtained for an entry of less than 10. 



BGPGR SPECIFICATION BELOW MINIMUM - "10" ASSUMED 
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IBM 
























IBM System 3GQ Assembler Coding Form 










..„"r,;.*.,. 


-»- EXAMPLE ONE : Two Disks amp at Least One Tape 


...c 


1 «"- 






1 f.Gi OF 


^..^. |„..- _ 


1 '-"-' 






i r«D FIEC.O ^,*,£. 




. : °'"°"" . . r °T" i: .- .: >■ ;; ss " ^ .= ;1 -j """"" 


/ 


/ 


EXE 


:c! 


AS 


se 


MBILY 
















' M ! 


! 






! 1 ! 


Ml 11 1 










5 


UP 


VR S 


yjSTlE 


M = D 


ISK 


iM 


P 


5 = 


YEST 


i 1 • 

1 i 1 


i 






i 1 j 


^; M 1 










C 


ON 


FS M 


ODEL 


= 4(jl 


,SP 


= YE 


s. 


DEC = 


yIe5|.If 


P = 


"(^s .itl 


MER=YE 


5 




I ! 1 ' 










S 


TD 


JC L 


ISTX 


= YE 


S,L 


IM 


E 


5 = 


4-6 




i 






















F 


OP 


T I 


T=BG 


.PC 


= YE 


5, 





C = 


YES, 


CCH 


aIi 


M = 


YES ,DA 


SDF1P = ( 


t J2„ 2 


521 


), X 














S 


YSFI 


L=< 


231 


1) 


» 


TE 


B = 4 


























P 


10 


CS C 


Wans 


KV= R 


WTA 


U, 


T 


AP 


^7, 


BMP 


X = 


YE 


S 


















A 


LL 


OC F 


1 =fcK 


,F2 


= 6K 




















1 


< 












I 


OT 


AB J 


IB=I 


0,c 


HAN 


Q = 


1 


*, 


Fl P6 


R=8 


.jF 


2P 


GRr8,I 


ODEV= 1 


i >BGP 


iR = 


lit 













VC 


SEN 


CHUM 


= X ' 


He 


> 


D 


VC 


TYP = 


254 


OiR 








: 














D 


MC 


|em 


CHug 


= X' 


OOD 


» 


P 


VC 


TYP = 


254 


OP 






















D 


\fC 


gIen 


CHUM 


= x' 


HE 


» 





VC 


TYP = 


MO 


3 


; 




















D 


VC 


GEN 


CHUM 


= x' 


4)1 F 




D 


VC 


TYP = 


1 05 


Op^ 






















D 


VC 


GEN 


CHUM 


= x' 


19<I 


' > 


D 


VC 


TYP = 


23 1 


1 






















D 


VC 


GEM 


CHUM 


= x' 


191 
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Figure 51. Example of a Supervisor 



Supervisor Macro Instructions 

Figure 52 lists the main storage requirements for the expansion of the supervisor macro 
instructions. To determine the amount of main storage required for a given macro 
expansion, add both literal and variable requirements to the basic requirement. 
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ATTACH 



h- 



NQMBER OF BYTES 



Macro 

IiBtruction 

Name 



CALL 

CANCEL** 

CHKPT 

COMRG 

DEQ 

DETACH 

DUMP 

ENQ 

EOJ 

EXIT 

FETCH 

GETIME 

LOAD 

MVCOM 

PDOMP 

POST 

RCB 

RETURN 

SAVE 

SETIME 

STXIT 

TECB 

WAIT (for TECB) 

WAITM 



Basic 

Storage 

Requirement 



18 - 32 

2 - 16 * 

4-6 

38 - 42 * 

6 

U - 8 

2-6 

6 

4-8 

2 

2 

2 - 10 * 

10 - 94 * 

2 - 10 * 

12 - 16 * 

10 - 28 

4-8 

8-10 

2 - 6 * 

4 

6 - 14 * 

2 - 14 * 

4 

10 - 14 * 

4-72 



Additional 
Storage 
Required 
For Literals 



0-4 
- 4 * 



0-4 
0-4 
8 
0-4 



8 - 12 * 
- 8 * 
8 - 12 * 
- 4 * 
- 16 * 
0-8 



- 8 * 
4 - 12 * 

- 4 * 



Variable 
Requirements* 



+4 per operand 



* These values vary according to the selected options 

♦*Also; if user specifies CANCEL ALL, CANCEL increases 
two bytes. 



Figure 52. Supervisor Macro Instructions Storage Requirements 
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foreground Save Areas 

^ part of each foreground area is reserved for saving registers and for processing 
Labels, The basic save-area size is 88 bytes. The following require additional space: 

+32 bytes for floating-point registers 

+8U bytes for nonsequential disk labels 

+8 bytes for standard tape labels. 



^PS Utility Macro Instructions 

Pigure 53 gives the main storage requirements for the MPS utility macro instructions. 
Phese macros are designed so that a file-to-file utility program can fit in a 2K 
foreground program area ( 4K if the INTCR macro is used). To determine the size of the 
nacro when expanded, add the variable requirements to, or subtract them from, the basic 
expansion requirement. 



IOCS Declarative Macro Instructions 

rigures 54-73 in this section give the main storage requirements for the IOCS declarative 
Ttacro instructions. Where applicable, both the DTF table requirements and the logic 
tioduLe requirements are given. (See the Supervisor and I/O Macros publication listed on 
:he front cover of this publication.) 

rhe assembled tables and modules are included in the object program when it is linkage 
edited- The total storage requirement can be determined by adding the appropriate basic 
nodule requirement and the storage requirements for optional functions (for example, 
REAI>=BACK for magnetic tape files) to the table requirements for each file. 

The core sizes in the tables may vary slightly according to the starting address of 
issembly; that is, boundary alignments may increase the core requirements for the various 
nodules by 2-7 bytes. 
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f- 



Basic 
Macro 
Expansion 
I 



T T 1 

I INTAPE I OUTAPE | 
4 ^ ^ 



BUFSIZ= 
80 
n 



RECSIZ= 
n 
name 



FILE= 
name 
(r) 



LBL= 
name 



b 

ERROR= 

SKIP 

IGNORE 

name 

I 



CHKPT= 
NO 
name 



RETDRN= 
NO 
YES 

BIK= 
n 
name 



776 



+ 
+2(n-80) 



226 
260 



-2^ 
-12 



32U 
4 






+ 8 

+ 72 



-26 
+28 






718 



+ 
+2(n-80) 



140 
120 



+ 276 



-6 
+ 



+ 150 
+ 182 



I IINDISK 



j OUTDISK 



^ 



Basic 
Macro 
Expansion 
f 



h- 



FILE= 
name 
(r) 
I 



BUFSIZ= 
80 
n 



LBL= 
name 



RECSIZ= 
n 
name 



ERROR= 
SKIP 
IGNORE 
name 



RETURN^ 
NO 
YES 



FORMAT= 
name 
FULL 
n 



BLK= 
n 
name 



816 



+0 
+2(n-80) 



+24 



+ 36 



260 

268 

+ 



+24 
+ 
+ 100 



1140 



+0 
+2(n-80) 



+0 
+12 



+36 







148 




+ 



+68 
+0 
44 



150 
182 



Figure 53. MPS Utility Macro Storage Requirements (Part 1 of 3) 
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h- 



-T T 1 

I INLOG I OUTLOG | 
4 + ^ 



Basic 
I Macro I 168 I 170 

Expansion 
^ + + ^ 



BUFFER= 

name | +0 | +0 

(r) I +u I 

COUNT= 

n j + I 

(r) I -28 I +4 

RETURN= 

NO j i -2 

YES I I +0 

L ± X J 



r T T 1 

I I INCARD I OUTCARD | 



Basic 
^^.acro 
Expans ion 
I- 



STCTL= 
YES 
name 






DEVICE^ 
2540 
2520 



RETURN= 
NO 
YES 
L 



U18 



4U4 



+ 60 
+112 



^ 



+186 
+ U8 



+4 
+0 



I OUTPRT I 

-+ ^ 



BUFSIZ= 

n 
I 



Basic 
Macro 
Expansion 



RETURN= 
NO 
YES 



I- 



PORMS= 
A 
B 
C 
D 



622 



+2(n-14U) 



+ 10 
+0 



+28 
+ 144 
+114 
+ 96 



Figure 53. MPS Utility Macro Storage Requirements (Part 2 of 3) 



308 IBM S/360 DOS Sys. Gen. and Maint. 



INTCR 



INPUT= 
MTST, STOUC 
or MST,STDLC 



INPUT= 
MTST,namel 



INPUT= 
MTST , NOTRAN 
or MTDL,NOEDIT 



INPUT= 

MTDI , EDIT 

or MTDI, EDI TR 



Basic 
Macro 
Expansion 



1158 



1023 



570 



1720 



h 



BDFSIZ= 

(n) 

(n,inl) 



+3n 
+ 2n+inl 



+ 3n 
+2n+inl 



+ 3n 
+2n+inl 



+3n 
+2n+itil 



RECFORM= 
VAR 
UNDEF 
I 



+0 
-16 



+ 
-16 



+0 
-16 



+0 
-16 



ERROPT= 

IGNORE 

naine2 



+ 
+106 



+0 
+ 106 



+0 
+ 106 



+0 
+134 



Figure 53. MPS Utility Macro Storage Requirements (Part 3 of 3) 
DTFCD (DEFINE THE FILE: CARD) 

Table Requirements 

TYPEFLE= INPUT requires 50 bytes. 

TYPEFLE=CMBND requires 8U bytes. 

TYPEFLE=OUTPUT requires 48 bytes. 

CRDERR=RETRY ( 25U0 only) requires an additional 88 bytes. 

DEVI CE=2 520 requires 8 additional bytes. 
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CDMOD (CARD MODULE) 



TYPEFLE 



INPUT I 



RECPORM= I I0AREA2= | WORKA= | 



J.___ ^ ^ J 

OUTPUT I CMBND 



1U42 
2520 
2540 
2501 



m42 I 2520 I 2540 



I FIXUNB 

I FIXUNB 

I FIXUNB 

I FIXUNB 
I 

I UNDEF 

I UNDEF 
I 

I UNDEF 
I 

I UNDEF 
I VARUNB 
I VARUNB 
I VARUNB 
I VARUNB 






I 

I YES 

I YES 

I 

I 

I YES 

I YES 

-^ 



— + 

YES 

— f ^ 



+1 4 + + + 4. ^ 



— + ^ 

YES 

-+ ++- 

I 
~+ ++- 

YES 

-M 44- 

I - II 
—4 44- 

YES 

-—4 44- 



90 
106 
122 
138 



1442 I 2520 
I 2540 
I 









4 + 4. + + 






I YES 

I YES 
-J.. 



~4 44- 

YES 

—4 44- 

I - II 
~4 44 

YES I 



74 
116 
118 
132 
112 
124 
128 
140 
126 
140 
154 
156 



80 



40 



126 I 198 



I 122 I 



84 



154 I 226 



I 124 I 



82 



126 I 198 



I 138 



96 



154 



226 



I 110 I 



70 



- I 



I 132 I 92 
I 130 I 90 
I 146 I 104 



I 132 I 



94 



- I 






I 146 I 108 



- I 






I 160 I 118 



- I 



.^ 1 1 + ^ 

I 162 I 120 



J. X J. J. J. J. JL ± i 



Figure 54. CDMOD Main Storage Requirements (Part 1 of 2) 



Notes 



1. CTLCHR=YES or ASA; depending upon record format, number of I/O 
areas,, and/or work area specifications: 

for YES, a minimum of 8 to a maximum of 36 additional bytes are 
required. 

for ASA, a minimum of 28 to a maximum of 65 additional bytes are 
required. 

2. RDONLY=YES changes the size of the modules -50 to +50 bytes. In 
addition, the user's program roust provide a 72-lyte save area each 
time the module is reentered. 

3. Part 2 of Figure 54 shows the requirements for the other CDMOD 
options. The values selected must be added to the TYPEFLE value to 
determine the amount of storage needed. 
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r T T 1 

I CRDERR=RETRY | 2520 | 25U0 | 
I 4 + ^ 

I without I0AREA2 or WORKA | +73 | +123 | 

I with either or both | +69 | +119 | 
L J. J. J 

r T T T 1 

I CONTROI=YES | 1UU2 | 2540 | 2520 | 
^ + 4 4 ^ 

I INPUT I +24 I +30 I +30 j 
^ 4 4 4 1 

j OUTPUT without WORKA | +24 j +20 | +12 j 
^ 4 4 4 4 

I OUTPUT with WORKA | +24 | +32 j +12 | 
I CMBND without WORKA | +24 | +20 | +12 | 

I CMBND with WORKA | +32 | +32 | +12 | 

L J. X J. J 

Figure 54. CDMOD Main Storage Requirements (Part 2 of 2) 



DTFCN (DEFINE THE FILE: CONSOLE) 



TYPEFLE= 



^ 1 

INPUT/OUTPUT I OUTPUT only | 

1 



RECFORM= 



WORKA= 



FIXUNB 



94 



f 

FIXUNB 

UNDEF 
UNDEF 



60 



YES I 150 I 90 I 
4 4 4 1 

156 I 114 I 

YES I 262 I 168 | 
J J 



Note: No module is required for this macro instruction. 



Figure 55. DTFCN Main Storage Requirements 



DTFDA (DEFINE THE FILE: DIRECT ACCESS DEVICE) 



Table Requirements 



RECFORM= FIXUNB requires 205-225 bytes, depending upon imperative macros 
used in the DTF. 

VERIFY=YES requires 40-80 bytes, depending upon imperative macros 
used in the DTF. 

AFTER=YES requires 80 additional bytes. 
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RECFORM=UNDEF requires 265-285 bytes, depending upon imperative macros 
used in the DTF. 

VERIFY=YES requires 40-80 additional bytes, depending upon 
imperative macros used in the DTF. 

AFTER=YES requires 16 additional bytes. 

Relative addressing increases the size of the DTF 60-80 bytes plus 8 
bytes per extent. (See IBM System/360 Disk Operating System, Supervisor 
and In put/ Out put Macros listed on the front cover of this manual.) 

DAMCD (DIRECT ACCESS DEVICE MODULE) 



r 1 

I Formatting | 
I Module I 

r r T \ +• T T T 1 

till I AFTER i I I I 

I I Basic II I and I | | | 

I RECFORM= j Module j IDLOC | AFTER | IDLOC j RELTRK | HOLD | ERREXT | 

I FIXUNB I 392 | +216 | +304 | +520 | +208 | +68 | +28 | 

I UNDEF I 556 | +228 | +208 | +436 | +212 | +72 | +28 | 

L . JL J. J. J. L I I I 



Notes: 

1. Basic Module includes coding to handle either FIXUNB or UNDEF 
records and the WRITEKY, READ KEY, READID, WRITEID, SRCHM, 
VERIFY, and CONTROL functions. 

2. AFTER includes coding to create the file and to handle the RZERO 
option. 

3. IDLOC includes coding to return the record identifier to the 
user in a location he specifies. 

4- Specification of trailer label processing in the DTF increases 
the size of each module by 50 ± 20 bytes. 

5. RDONIY=YES changes the size of the module -50 to +50 bytes. In 
addition, the user's program must provide a 72-byte save area 
each time the module is reentered- 

Figure 56. DAMOD Main Storage Requirements 



DTFIS (DEFINE THE FILE: INDEXED SEQUENTIAL) 
Table Requirements 

1. IOROUT=LOAD requires 248 bytes plus 4 bytes per disk extent 
specified, plus 8 bytes for IOAREA2. 

2. IOROUT=ADD requires 530 bytes plus 4 bytes per disk extent specified 
plus KL (the length of the key) . 
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3- I OROUT=RETRVE requires 276 bytes plus U bytes per disk extent 
specified, when TYPEFLE=SEQNTL . 

i\. IORODT=RETRVE requires 292 bytes plus H bytes per disk extent 
specified when TYPEFLE= RANDOM or RANSEQ. 

5. IOROUT=ADDRTR requires 548 bytes plus 4 bytes per disk extent 
specified plus KI (the length of the key) . 

6. IOROUT=ADDRTR, TYPEFLE=RANDOM, INDAREA=name, and INDSIZE=n require 
3 00 bytes plus U bytes per disk extent. 



ISMOD (INDEXED SEQUENTIAL MODULE) 



lOROUT = 



LOAD 



RECFORM= I 



ERR EXT j lOAREA 2 j E RREXT | 

1 I h ^ 

1 I I I0AREA2 1 



"TT- 

II 

4+- 



ADD 



II I 

4+ 1-- 



T T r 

I CORDATA j ERREXT | CORDATA 
I I ^ ___. 

I I I ERREXT 

I i I 



^ 



FIXDNB 
FIXBIK 
BOTH 






-+ + + + 

|811|+22U 1+212 I+U36 

—J. X L^ ± 



I |2572|+184 

-+ H 4 

I I I 27861 + 272 

-+ ++ 1- 

I ||3032|+246 

_J LJ. J. 



1+476 1+660 
._+ + ^ 

1+498 1+770 
._4. + ^ 

1+428 1+674 
._J J 



• Figure 57. ISMOD Main Storage Requirements (Part 1 of 5) 



IOROUT=RETRVE 
TYPEFLE= 



[RANDOM 



SEQNTL 



^ 



RECFORM= 
FIXUNB 
FIXBLK 
BOTH 









+ 



I ERREXT I 

I I 

I 1 

I j 

I I 

— + ^ 

I 

4 , 

I 
+ 

12761+302 
X 



I 

-T ^ 

I RANSEQ I 

■T T T !• 1 1 

I ERREXT I IOAREA2 I ERREXT | | ERREXT | 
I I j. ^ I I 

I I II0AREA2I I I 



f -I 

I I 
+ + 

I I 
4 + 

12601+246 1+386 
± J. 



+ 4 + 1 

I I I 

+ + 4. ^ 

I I i 

|. + 1 1 

+632 1 2116 1 +332 | 

I L J 



Figure 57. ISMOD Main Storage Requirements (Part 2 of 5) 
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IOROUT=ADDRTR 
^ ^ 

TYPEFLE= 
|. ^ ^ 



RANDOM 



SEQNTL 



|. ^ J ^ ^ ^ ^ ^ ^ ^ 



r ^ 

I RliCFORM= 

jFIXUNB 
I FIXBLK 
I BOTH 



T T T T- 

CORDATA I I0AREA2 | CORDATA | ERREXT 
I I. ^ 

I IIOAREA2I 



T r r- 

I CORDATA I ERREXT | CORDATA | 
I I ^ ^ 

I I 1 ERREXT I 

I III 

32161 +184 I +531 | +718 |3U20| +9U | +386 | +U80 | +510 
+ + 1 4 + + 4- f f 1 

34321 +272 | +554 | +826 |3634| +272 | +386 | +658 | +528 
36761 +246 | +588 | +834 |3880| +274 \ +386 | +660 | +558 

JL X X X X X X X 



Figure 57- ISMOD Main Storage Requirements (Part 3 of 5) 



I 
I- 



IOROUT=ADDRTR 
TYPEFLE=RANSEQ 



I CORDATA! ERREXT | CORDATA 

I I I f ^ 

J. ^ I I I ERREXT 

|RECFORM= j I II 

IFIXUI^B 1 4056 1 +194 | +556 | +750 

IFIXBLK 1 42721 +272 | +584 | +856 

I BOTH 1 4516 1 +248 | +616 | +864 

L X X X X 



Figure 57. ISMOD Main Storage Requirements (Part 4 of 5) 



Note 1: When RECFORM=BOTH is specified, the 
module processes riXUNB and FIXBLK 
records. 

Note 2: For COPINDX = YES, add 212 bytes. 

Note 3: RDCNLY=YES changes the module size by 
±50 tytes with the following 
exceptions. When IOROUT=ADD or 
IOROUT=ADDRTR, the module changes in 
size +60 to +100 bytes. In addition, 
the user's program roust provide a 
72-byte save area each time the module 
is reentered, regardless of function. 



Figure 57- ISMOD Main Storage Requirements 
(Part 5 of 5) 
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DTFMR (DEFINE THE FILE: WAGNETIC CHARACTER READER) 

Table Requirements 

If ADDRESS=DUAL is specified, the table requires 264 bytes. 

If ADDRESS=DUAL is not specified, the table requires 250 bytes. 

MRMCD (MAGNETIC CHARACTER READER MODULE) 

If ADDRESS=DUAL is Specified, the module requires 1, 050 bytes. 
If ADDRESS=DUAL is not specified, the wodule requires 9U6 bytes, 

DTFDI (DEFINE THE FILE: DEVICE INDEPENDENT SYSTEM UNITS) 
Table Requirements 
240 bytes 

DIMOD (DEVICE INDEPENDENT SYSTEM UNITS MODULES) 



r 1 1 1 

I I Basic I I 

I TyPEFLE= I Module | IOAREA2=YES j 

f + + -f 

I INPUT I 308 I +60 I 

J. 4 4 ^ 

I OUTPUT I 643 I +80 j 

I ± J. J 

Note : RDONLY=YES changes the size of the module -50 to +50 bytes. In 
addition, the user's program must provide a 7 2-byte save area 
each time the module is reentered. 

Figure 58. DIMOD Main Storage Requirements 
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DTFMT (DEFINE THE FILE: MAGNETIC TAPE) 

Table Requirements 

TYPEFLE=WORK requires 48 bytes per work file. 

The table requirements for INPUT and OUTPUT files are: 



INPUT 



TYPEFLE= I RECFORM 



I FIXUNB 
I or 
I FIXBLK 

I VARUNB 
I or 
I VARBLK 

I UNDEF 



96 






Basic 
Size 
Without 
STDLABELS 



109 



92 



ERROPT, 1 Basic 

ERREXT I Size 

(Without I With 

STDLABELS) | STDLABELS 

I 112 
* I 






+- 

I 

I 

I 

+- 



128 



108 



ERROPT, 
ERREXT 
(With 
STDLABELS) 
^ 



* 
* 



OUTPUT 



FIXUNB 

or 
FIXBLK 



86 



+10 



lOU 



+U 



h 



I VARUNB 
I or 
I VARBLK 

k + 

I UNDEF 



98 



+ 10 



116 






84 



+ 4 



I 

X. 



100 



+ 4 



-J 



^ 



* Included in basic Size of Module- 
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MTMOD (MAGISETIC TAPE MODULE) 



MAGNETIC TAPE MODULE 



-TT" 
II 



II 



h 



RECPORM= 



INDEPENDENT OPTIONS 



BASIC 
MODULE 



h- 



WORKA= 
YES 



CKPTREC= 
YES 



KEAD= I 

BACK I ERREXT 



4+- 



I FIXUNB/FIXBLK | | 846 | +80 j +136 j +48 j +64 

I VARUNB/VARBLK | | 890 | +120 | +144 j +80 | 48 

I UNDEF II 672 | +80 | +144 { +16 | +64 
L XJ X ± X J. 



Notes ; 

1. Only one module is required for processing all files having a coniiron 
RECFORM, This module can be generated with the options charted 
above- To determine the size of the module with the options, the 
number of option bytes specified in the chart must be added to the 
basic module. 

2. RDONLY=YES, changes the size of the module -50 to +50 bytes. In 
addition, the user's program must provide a 72-byte save area each 
time the module is reentered. 



I 



WORKFILE MODULE 



NOTEPNT= 

T 1 



T T- 

I I I 

I I \- 

I I without I I 

I TYPEFIE=WORK | NOTEPNT | YES | POINTS 

^ + 4 4 1 

I without ERROPT I 232 | 450 | 286 

^ f 4 4 1 



I with ERROPT 

I with ERROPT fi 

I ERREXT 

L 






322 
436 



I 540 I 380 

I 654 I 494 

I I 
-X X 



Figure 59. MTMOD Main Storage Requirements 



DTFOR (DEFINE THE FILE: OPTICAL READER) 



Table Requirements 



1. RECFORM=FIXUNB requires 136 bytes. 

2. RECFORM=FIXBLK varies as a function of blocking. 

Size = 136 + (16 X blocking factor x number of I/O areas) 

3. RECFORM=UNDEF requires 136 bytes. 
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ORMCD (OPTICAL READER MODULE) 



I 



■1 

I 

H 



INDEPENDENT OPTIONS 



T T 1 

II I I I I I0AREA2= 

II Basic I CONTROL= 1 10 AREA 2= | WORKA=| YES and 
RECPORM= I I Module | YES | YES | YES | WORKA=YES| 



DEVICE= 



FIXUNB 



892 



+ 220 



+ 76 I 



+ 60 



+ 96 






FIXBIK 



I I 1256 I +264 I 



+ 56 I 



+ 28 



+ 84 



1285 

or 
1287T 



DNDEF I I 8U8 j +22U | +56 | +64 | +88 

UNDEF III I I 

BLKFAC=YES | | 1180 | +268 | +56 | +24 | +80 

1287D I FIXUNB | | 1360 | +184 | | 

UNDEF I I 1256 | +188 | | 

L J. XX ± ± X 



Figure 60. ORMOD Main Storage Requirements 



DTFPH (DEFINE THE FILE: PHYSICAL IOCS) 



I r 

I Device | Size 
^ _ + 

I Tape I 104 

jDASD MOUNTED=ALL | 40 
f f 

|DASD MOUNTED=SINGIE | 84 



Note : No module is required for this macro instruction. 
Figure 61. DTFPH Main Storage Requirements 



DTFPR (DEFINE THE FILE: PRINTER) 



Table Requirements 



Size = 48 bytes 
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PRMOD (PRINTER MODULE) 



I I I ~T ~T T IcTLCHR= T 1 

I I I BASIC I I I f r 1 I 

j RECFORM= I I MODULE j WORKA=YES j IOAREA2=YES | PRINTOVJ ASA | YES j CONTROL=YES | 
f ++ + + + + 4 {— ^ 

jFIXUNB il UO I +UU I +U2 j +78 |+188|+34| +40 j 

lUNDEF I I 70 I +22 | +20 | +76 |+170|+16| +40 | 

IVARUNB I I 94 | +14 | +24 | +76 |+162|+8 | +40 | 

L J.X J. ± X ± J. J. J 

Note ; RDONLY=YES changes the size of the module -50 to +50 bytes. In 
addition, the user's program must provide a 72-byte save area 
each time the module is reentered. 

Figure 62- PRMOD Main Storage Requirements 



DTFPT (DEFINE THE FILE: PAPER TAPE READER) 

Table Requirements 

The possible table specifications and sizes are: 

1. No translations, no shifts, and no deletes require 72 bytes. 

2. TRANS=name with no shifts and no deletes requires 76 bytes. 

3. TRANS=name, SCAN=name, RECFORM=FIXUNB require 110 bytes. 

4. TRANS=name, SCAN=narae, RECFORM=UNDEF require 94 bytes. 



PTMCD (PAPER TAPE READER MODULE) 

The module specifications and sizes are: 

1. No parameters specified (no translations, no shifts, and no deletes) 
requires 252 bytes. 

2. TRANS=YES with no shifts and no deletes requires 310 bytes. 

3. TRANS=YES, SCAN=YES, RECFORM=FIXUNB require 536 bytes. 

4. TRANS=YES, SCAN=YES, RECFORM=UNDEF require 4 36 bytes. 
Note ; If module 2 is used, all records require translation. 



Appendix G 319 



DTFSD (DEFINE THE FILE: SEQUENTIAL DASD) 



■TT" 



TYPEFLE 



^ ^ ^ + ^ 



RECFORM= 



INPUT 
^ ^ 



with 
UPDATE 



without 
UPDATE 



T T- 

OUTPUT I WORK 
^ f. T ^ CONTROL 



with 
UPDATE 



FIXBLK 

or 
FIXUNB 

VARBLK 

or 
VARUNB 

I UNDEF 
L 






176 



152 



160 



152 



without 
UPDATE 
+ 



152 



YES 
^ 

+ 24 






192 I 152 I 170 

I I 192 I 152 I 162 I 152 | 152 

.XX J J J J 



+ 24 

I +24 I 
X I 



Figure 63. DTFSD Main Storage Requirements 



SDMOD (SEQUENTIAL DASD MODULE) 



T r 

ERROPT 
+144 



Module Name I 
SDMODFI 



++- 



4+ 



Basic Module | TRUNCS 
462 I +80 






CONTROL 
+28 



HOLD 



ERROPT I 
ERREXT I 



* I +228 



I 

SDMODFU I I 798 

SDMODVI 11 729 

DVO I I 1045 

DVU II 1086 



SDMODFO 
SDMODFU 
SDMODVI 
SDMODVO 
SDMODVU 
SDMODUI 
SDMODUO 
SDMODUU 
SDMOEW 












.XX. 



546 
798 
729 
1045 
1086 
533 
653 
941 
572 



I +136 
I +88 



— f + 






I 

I 

I 

I 

I 

I 
.X 






+28 
+ 28 
+28 
+ 28 
+ 28 
+28 
+ 28 
+28 
+22 



+64 



* j +200 









--+ +- 









+ 164 
+104 

+ 68 
+ 176 
+100 

+ 68 
+148 
+148 



+ 96 I 
+- 

* I 

* I 
+- 

+ 76 I 
f- 

* I 
+- 

* I 
+- 

+ 40 I 

+- 

+10 I 



+ 252 
+188 
+120 
+ 296 
+171 
+ 116 
+ 248 
+ 246 



♦The HOLD function does not apply to these modules. 

Notes ; 

1. For SDMODW, NOTEPNT=YES requires 206 additional bytes: 
NOTEPNT=POINTRW requires 144 additional bytes, UPDATE=YES requires 
4 additional bytes- 

2. RDONLY=YES changes the size of the module -50 to +50 bytes. In 
addition, the user's program must provide a 72-byte save area each 
time the module is reentered. 

Figure 64. SDMOD Main Storage Requirements 
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DTFSR (DEFINE THE FILE: SERIAL DEVICE) 

When a DTFSR is assembled, it generates both a table and a module. For 
example, if DTFSR is used for a printer, a table and a module are 
generated just as though DTFPR and PRMOD were used. To determine the 
main storage requirements for DTFSR, add the table and the module 
requirements for the appropriate device type — such as 48 bytes (DTFPR) 
and n bytes (PRMOD) for a printer. 



DTFET (DEFINE THE FILE: BTAM) 



Table Requirements 

Size = 61 + N (UO + 8x) + BUFCB + BUFNO (BUFL + f) + y + z 
(+ 32N for BSC only) 

where: N = number of lines in the line group 

X = number of CCWs in the largest channel program available 
for the device, given in Figure 65 
♦BUFCB = 8 if a buffer pool is used 

= if not 
♦BUFNO = number of buffers in the pool 
♦BUFL = length of each buffer 
f = number of bytes required to extend each buffer to a 

multiple of 8 
y = size of the model channel program table for the line 
group, given in Figure 65. If two or more DTFBTs use 
the same model channel program and are linkage edited 
together, include the value only once, 
z = size of the table of special characters, given in Figure 
60. For BSC only, if two or more DTFBTs use the same 
transmission code, include the value only once. 

♦If the buffer pool is shared by 2 or more DTFBTs, include the value 
only once. 
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Figure 65. Parameters for DTFBT Table Requirements Formula 
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DTFBTND (DEFINE THE FILE END: BTAM) 



This macro instruction does not require main storage at execution time. 



DFTRMLST (DEFINE THE TERMINAL LIST: BTAM) 



Table Requirements for OPENLST and WRAPLST 



Size = n (m + 1) + 2 

where: n = numter of list entries 

m = number of polling/addressing characters- -a function of the 
device, as shown in Figure 66 
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2 74 OS 






1 






2740SC 






1 






777 0/72 
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115 A 






2 






83B3 
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1130 






2 






278 






3 






WTTA 




Not 


applicable 




L. 




j._ 






_j 



Figure 66. Number of Polling/Addressing Characters 



Table Requirements for DIALST 



Size = n(m +l)+l+q+p+i 

where: n = number of list entries 

m = values specified in Figure 66 

q = 2 if the list includes entries for polling or addressing 

= otherwise 

p = number of dial digits 

i = 3 if the inlist operand is coded (BSC only) 

= otherwise 
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Table Requirements for IDLST 

Size of TWX calling list = d + 5 + 2b 

Size of TWX answering list = 5 + b 

Size of BSC IDLST only =3+d+2r+s+i 

where: d = number of dial digits 

b = number of TWX ID characters 

r = number of ID characters expected to be received (BSC) 

s = number of ID characters to be sent (BSC) 

i = 3 if the inlist operand is coded (BSC) 

= otherwise 



Table Requirements for SSLAST/SSAWLST 
Size = n(m + 1) + 6 



where: n = number of list entries 

m = values specified in Figure 66 



Table Requirements for AUTOLST/AUTQWLST 
Size = n(m + 2) + 8 



where: n = number of list entries 

m = values specified in Figure 66 



Table Requirements for WTTALST 

1. When the WRU feature is present in DTFBT: 
Size = 3 + 2r + s 

2. When the lAM feature is present, and WRU is not present in DTFBT 
Size = 2 + s 



where : r = number of ID characters expected to be received 
s = number of ID characters to be sent 
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BTMOD (BTAM LOGIC WODULE) 



The size of the BTAM module varies with the options selected, as shown 
in Figure 67. When all operands are omitted or the standard (default) 
options are coded, the resulting basic module requires 4770 bytes of 
main storage. 



I Operand 
k 



Option 



Number of bytes added to basic module 



N 



-2090 



ERLOGIC= 



+ 320 



H- 



NC 



-1830 



SWITCH= 



YES 



+ 290 



AUDIO= 



YES 



+ 410 (SWITCH must equal YES) 



YES 



+1740 



BUFFER= j- 



REQPEL 



+ 640 



TERMTST= 



YES 



+ 750 



L2260= 



YES 



-1280 (If EPLOGIC=N) 
+1050 (If ERLOGIC=E) 



h" 



+1360 (If ERLOGIC=C) 



-1020 (If ERLOGIC=NC) 



TRANSL= 



YES 



+ 140 



+9380 (If SWITCH=YES and BUFFER=YES) 



BSCS= 



YES 



+6640 (If SWITCH=YES and BUFFER=NO) 



K- 



+5290 (If SWITCH=NO and BUFFER=NO) 



+8020 (If SWITCH=NO and BUFFER=YES) 



SSAPL= 



YES 



- 970 (If ERLOGIC=N) 



h- 



+1560 (If ERLOGIC=E) 



- 700 (If ERLOGIC=NC) 



V-- 



+1880 (If ERLOGIC=C) 



BSCMPT= 



YES 



+ 880 (ESCS must equal YES) 



WTTA 



YES 



+ 320 



BSCTEST 



YES 



+ 1690 



DEC BE XT 



YES 



- 50 (ESCS must equal YES) 



Figure 67. BTAM Main Storage Requirements 
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Bl'AM DATA EVENT CONTROL BLOCK 

Table Requirements 

Size = UO bytes 

When the MF operand of a READ or WRITE macro is coded MF=L, or when the 
MF operand is omitted, a Data Event Control Block (DECB) is reserved. 
One DECB should be reserved per line. 



QTAM STORAGE REQUIREMENTS 

The main storage requirements for QTAM depend to a great extent on the 
configuration of the user's Teleprocessing installation and the nature 
of his applications. Storage requirements increase proportionately as 
the number of communication lines, terminals, and QTAM-provided 
processing functions increase. These requirements can be estimated frDm 
forimlas and tables presented in this section. 

BASIC QTAM LOGIC MODULES 

Figure 68 lists the basic QTAM logic modules and corresponding storage 
requi rerrents . 
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r T r 1 

I Module (Module | Storage Requironents | 

j [Name | (in bytes) | 

^... + 4 ^ 

I Implementation module |IJLQIP | 3749 | 

^ 1 4 ^ 

I LPS Control Module | IJLQLP | 1010 j 

^_._ 4 4 ^ 

I Line Appendage for PCI and | | | 

I Program Check module (Note 4) | IJLQLA | 728 | 

^ 4 4 ^ 

I Line Appendage and ERP Module | | | 

I (Note H) (IJLQEP I 4160 | 

^ 4 4 ^ 

I Audio Line Appendage module (Note 1) ( IJLQAA | 2376 | 

f + \- ^ 

I Disk Appendage module (Note U) |IJLQDA | 1365 | 

J. _ 4 ^ ^ 

I Audio Disk Appendage module (Note 2) |IJLQAD | 1604 | 

^ 4 4 ^ 

I Physical I/O module (Note 4) | IJLQRW | 1521 j 

^... _ 4 4 ^ 

(Terminal Test Recognition module | IJLQTT | 1386 | 

I (Note 4) II I 

^ 4 4 ^ 

I Checkpoint module (Note 3) | IJLQCK | 1148 | 

^__. 4 4 ^ 

I Message Writer Initiator module |IJLQMW j 1255 | 

^ _ 4 4 ^ 

I IBM 2260 Local Appendage module | | | 

I (Note 5) IIJLQLO I 1604 | 

K-^ + + j 

IWTTA Appendage Module (Note 6) | IJLQTA | 1370 | 

^___ J. ± ^ 

I Note 1: Required if the QTAM Audio Support is selected. | 

I Note 2: Required if the IBM 7772 Vocabulary file is used. | 

I Note 3: Required if the Checkpoint/Restart facility is selected in | 
I the DTFQT. I 

I Note 4: Not required when the system contains only audio devices. | 

I Note 5: Required if the IBM 2260 Local device is used. | 

I Note 6: Required if World Trade Telegraph support is selected. | 



Figure 68. Basic QTAM Logic Modules 



DTFQT (DEFINE THE FILE: QTAM) 



There are seven types of DTF tables which may be generated by a DTFQT 
macro instruction- The storage estimates for each follow. 



Table Requirements for DASD Message Queues File 



Size = 315 bytes 
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Table Requirement's for Communication Line Group File 



For Nonaudio Line Group 
Size = 48 + (128 + 8x)N 

For Audio Line Group 

Size = 64 + P ♦ (161 + L^. + La + G + x-z)N 

where: N = number of lines in the line group 

X = a function of the device, given in Figure 69 

P = 22 for IBM 7772 only 

Li = length of input buffers 

La = length of address chain buffers 

G = 9 when using time stamping option, otherwise 

z = 17 when information mode is used 



= 
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Figure 69. Values for Communication Line Group Table 



Table Requirements for Main Storage Process Queue 



Size = 84 + 12x 

where: x = for nonmixed application,, and 
1 for mixed application 



Table Requirements for Main Storage Destination Queue 



Size = 80 bytes 



Table Requirements for Checkpoint Records File 



Size = 220+L 

where: L = length of the Checkpoint record specified by the SCWA keyword 
operand. 



Table Requirements for IBM 7772 Vocabulary File 



Size = 40+4p 
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where: p = number of BUFARU iracro instructions 



Table Requirement for Audio Output Queue 



Size = 76 bytes 



QTAM STORAGE REQUIREMENTS FOR CONTROL INFORMATION 



The storage estimates for required control information are shown in 
Figure 70. 



I CcMitrol Blocks and Information j Storage Requirements (in bytes) 



k 



Terminal table 

TERMTBL macro instruction^ 

OPTION macro instruction 



TERM macro instruction^ 



LIST macro instruction^ 



PROCESS macro instruction^ 



h 



12 



No Storage is reserved for this 
macro; it defines user areas 
that are included in the expansion 
of the TERM macro instruction 
(U parameter) 



i 



9+ I+U+D+ UUF 
where: (I + U + D)<243 



12 + L + 2N + m02 
where: (3 + L +2N)<2U3 



13 + A for audio process 
program entry 

9 + Y for nonaudio process 
program entry 



Polling list 

POLL macro instruction^ 



4 + 3N for autopolled terminals 
except IBM 1030 

4 + 2N for nonswitched terminals 
or autopolled IBM 1030 

5 for switched IBM terminals 
3+1 for TWX 

U + T for WTTA terminals 



Queue Control Block for Process 
Queues and Destination Queues 



32X 



Audio Line Table 

LINETBL macro instruction^ 



UNE macro instruction^ 



5 + Z 



f 



Audio Word Table 

WORDTBL macro instruction^ 

WORD macro instruction^ 



I 8 + W 
-J. 



Figure 70, Storage Requirements for QTAM Control Info2nnation 
(Part 1 of 2) 
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where: N = number of terminals 

I = number of bytes in terminal ID 
U = number of bytes in optional area 

D = number of bytes in device address area; size depends on 
contents: 

For nonswitched terminal — addressing and polling 

characters (1 byte/ character) 
For IBM switched terminal — field telling the number of 
dial digits (1 byte) + dial digits (1 byte/digit) + 
addressing characters (1 byte/ character) 
For TWX — field telling the number of dial characters (1 
byte) + dial digits (1 byte/digit) + field telling the 
number of ID characters (1 byte) + ID characters (2 
bytes/character) 
For WTTA terminals — 1 byte + field telling the number of 
ID characters (1 byte) + ID characters (2 
byt es/ char a ct er ) 
For IBM 2260 Local — a field of 6 full words consisting 
of a CCB and other control information 
L = number of bytes in name of the distribution list entry 

in terminal table (1-8) 
A = number of bytes in name of the audio process entry in 

the terminal table. Because the following field in the 
entry must be aligned to a fullword boundary, this 
field must be either three, seven or eleven bytes long. 
X = number of lines or terminals (depending on queuing 

techniques) and the number of process queues 
Y = number of bytes in name of the process entry in terminal 

table (1-8) 
Z = number of bytes in name of the line entry in line table 

(1-8) 
W = number of bytes of the selected word 
F = 1 for IBM 27U0 Model 2 terminals with the Buffer 

Receiver Option; for other terminals 
T = number of bytes in the CPU identification (WTTA 
terminals) 



Notes: 

1. Add the number of bytes necessary for fullword boundary. 

2. This number (lUO) is the number of bytes in the Distribution 
List module (IJLQDL). This number is included in the storage 
requirements only once if the LIST macro is used more than 
once. 



L 



3. Add the number of bytes necessary for halfword boundary. 



Figure 70. Storage Requirements for QTAM Control Informati 
(Part 2 of 2) 



on 



QTAM REQUIREMENT FOR BUFFERS 

For Nonaudio Applications: 

Buffer Pool Size = 8 + (X + 16)N + 2UM 
For Audio Applications with IBM 7772: 
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Audio Buffer Pool Size = 24 + (X + 88)N 



where: N = number of buffers specified 
X = size of each buffer 

M - number of CCWs QTAM generates for data insertion by the 
PAUSE macro 



QTAM STORAGE REQUIREMENTS FOR DEVICE I/O MODULES 



Figure 71 gives the storage requirements for the QTAM device I/O 
modules. The storage for a particular device I/O module need be 
included only once and only if the terminal type is present in the 
system. 



Terminal Device Type 



Module 
Name 



Storage Requirejnents 
(in bytes) 



lEM 1030 Data Collection System 



IJLQMO 



194 
168 



IBM 1060 Data Communications System 



ULQMl 



lEM 2260-28U8 Display Complex 



IJLQM2 



206 
102 



AT6T 83B3 Selective Calling Stations 



IJLQM3 



Western Union Plan 115 A Outstations 



ULQMU 



+-- 



90 
207 



lEM 1050 Data Communications System 
on a switched network 



IJLQM5 



IBM 1050 Data Communications System 
ATgT Model 33/35 TWX Stations 



ULQM6 



IJLQM8 



19U 

113 

75 



IBM 2260-2848 Display Complex Local 



ULQM9 



IBl 2740 Communications Terminal: 
,Type 274A 
Type 275B 
Type 27 4C 
Type 274D 
Type 274E 
Type 27 4F 
Type 284G 
Type 27 5H 



IJLQNO 



l~- 



ULQNl 



IJLQN2 



H 



IJLQN3 



IJLQNU 



IJLQN5 



IJLQN6 



IJLQN7 



90 
157 



162 
221 



198 
119 



183 
156 
300 



World Trade Telegraph Terminals 



IJLQN8 



Figure 71. Storage Requirements for QTAM Device I/O Modules 
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REQUIREMENTS FOR OTHER QTAM MACRO INSTRUCTIONS 

Figure 72 gives the storage requirements for all other QTAM macro 
instructions . 

Much QTAM logic consists of modules introduced by the use of certain 
QTAM macro instructions in the user's program. These macro instructions 
expand into in-line coding that establishes the linkage to, and 
parameters for, the QTAM modules. Often a module so introduced into the 
system will itself introduce another module, a process termed a second 
level routine- 
Column two of Figure 72 shows the extent of the coding produced by the 
expansion of the macro instruction in column one. If the coding links 
to a QTAM module, the module is presented in column three; if that 
module links to other modules, they are presented in column four. 

Storage requirements for a sharable module, or for a second level 
routine that is linked to more than once in the same partition, are 
included only once. For example, the macro instructions DIRECT, EOA, 
and ROUTE all link to the same module, IJLQLK. If two or more of these 
macro instructions are used in the same message control program, the 
module is included only once. Similarly, if the same macro instruction 
is used more than once in the same program, storage is required for only 
the additional linkage since the module is included just once. 
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|. 


-+- 





1_ 




-4- 





-4- 


1 ^ 


1 cmGP 






42 1 


146 




ULQCP 




78 1 IJLQFL 1 




-+- 





1_ 




-4- 





-4- 


^ ^ 


1 CIWCT 


-f- 




26 1 

-f- 

10 1 


250 


-4- 


IJLQCT 


-4- 


+ ^ 


1 CKREQ 




100 


IJLQCR 




1 




1 




1 




4. . 


-4- 4 


f — — -J 


1 




T 




1 




T 


T 1 


1 CLOSEMC 


-+- 




6 1 

4- 

24 1 


514 


-4- 


IJLQQT 


-4- 


512 1 IJLQCL 1 
^ ^ 


1 COPYC 




414 


IJLQDC 




1 




1 




1 




4. . 


1 J 


f ■" 


1 




T 




1 




T 


T 1 


1 COPYP 






34 1 


104 




ULQDP 




78 1 IJLQFL 1 


Y 


-4- 





4- 




-4- 





-4- 


1- ^ 


1 COPYQ 






34 1 


98 




IJLQDQ 






^ 


-+- 





4- 




-4- 





J. . 


-4- J 


T 


T 7 


1 COPYT 






30 1 


120 




ULQDE 






|._-. 


-+- 





4- 




-4- 





-4- 


+ ^ 


1 COUNTER 






12 1 












J. 


-+- 





4- 




-4- 





-4- 


+ ^ 


1 DATESTMP 


1 




8 1 
f- 

12 1 

4. 


70 


-4- 
1 


IJLQDT 


-4- 
-4- 


70 1 IJLQEX 1 


1 DIRECT 




104 


IJLQLK 


1 ENDRCV 


1 




T 

10 1 




1 


Note 1 




-+- 




± 




1 




4. . 


1 J 


1 *" 








1 




T 


I 1 


1 ENDRCV (WTTA) 


-+- 




16 1 

4- 

80 1 


132 


-4- 


IJLQEB 


-4- 


+ ^ 


1 ENDREADY 






Note 1 




-4- 





4- 




-4- 





4. . 


1 J 


f 


T 


T 1 


\ ENDSEND 






10 1 






Note 1 






^ 


-+- 





4- 




-4- 





-4- 


+ ^ 


1 EGA 






28 1 


100 




ULQEA 




104 1 IJLQSH 1 
76 1 IJLQSK 1 
4 8 1 IJLQRG 1 
60 1 IJLQMT 1 

104 1 IJLQLK 1 
















1 Note 2 1 1 


|. 


-4- 





4- 




-4- 





-4- 


+ ^ 


1 EOB 


1 




6 1 
J. 


132 


1 


IJLQEB 


4. . 


1 Note 1 1 

-4- J 


r 


1 




T 




1 




T 


T t 


1 EOBLC 






6 1 


380 




IJLQEC 




1 Note 1 1 


1 


_X- 




i- 




_x. 




_J._. 


X J 
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Macro Instruction 
ERR MS G 



t 

GET 






Record 

' GET (AUDIO) 

Audio message 

Audio and non- 
audio messages 

Audio message & 
nonaudio record 

Audio message S 
nonaudio seg- 
ment 



In-line 
linkage 
or code 
Note 5 

32+ 
message 
text 



Segment 
Message 



(See l~ 

Figure 

73.) 1- 



(See 

Figure 

73.) 



Sharable modules 



S ize j Name 



28U 



464 
482 






510 

370 
767 
792 



747 



IJLQER 
Note 1 



Second level 
routine 

Size I Name 
._+ ^ ^ 

104 I IJLQLK 



ULQGS 
IJLQGM 



IJLQGR 

IJLQGA 
IJLQGB 
IJLQGC 

IJLQGD 









INTERCPT 









LOGSEG 
LCX5SEG (ARU) 
LPS TART 
MODE (C) 



12 
4 

32 
+ 

26 



IJLQIT I I 

Note 3 I I I 

ULQLG 



128 
Note 3 
304 






28 
+ 

14 



MODE (U) 

INITIATE 

PRIORITY 

CONVERSE 



MOD2260 
MSGTYPE (C) 
MSGTYPE (U) 
OPCTL 






+ 

10 



j. 



10 

— + 

10 



48 

24 

36 

336 



Note 1 

MODE (U) 
module & 
IJLQMM 

IJLQMI 
IJLQMP 






104 



IJLQSH 






104 



IJLQSH 






I 



+ 

4 






ULQMC 
Note 1 






+-- 

4- 



19 
+ 

4 
f 

56 



60 

f 

3146 






IJLQMT 

+ 

IJLQOC 



10 4 



IJLQSH 









104 
104 
512 



IJLQLK 
IJLQSH 
IJLQCL 
Note 1 



L 
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for Other QTAM Macro Instructions (Part 
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Macro Instruction 
PAUSE 



PCLLIMIT 

POSTARU 

POSTRCV 

POSTS END 

PUT 

Segment 

Message 

Record 

PUT (AUDIO) 

RCVHDR 



13 + 
no. of 
insert 
chars. 












RCVSEG Note U 
j. 

RELEASEM 
REPEAT 

V— 

REROUTE 

RETRIEVE 

DASD address 

By sequence 
number 



In-line 
linkage 
or code 
Note 5 



12 
6 
6 

12 






See 

Figure 

73. 



I 







Sharable modules 



Size j Name 
352 I IJLQPZ 



120 
Note 1 



508 
468 






532 
386 






See Fig- 
ure 73. 



IJLQPL 

Note 1 
Note 1 

IJLQPS 
IJLQPM 



IJLQPR 
IJLQPA 



Second level 
routine 



Size I Name 

Note 1 





















12 
4 

3U 



IJLQRM 



161 

Note 1 



26 



64 



IJLQRR 
Note 1 



104 



IJLQLK 






14 
26 



130 



IJLQRD 



420 



IJLQRS 



130 



IJLQRD 



h- 



ROUTE 



8 



48 



IJLQRG 



104 
104 



IJLQLK 
IJLQSH 



)r—— 



SENDHDR 



16 



^... 

SENDSEG Note 4 

SEQIN 






136 



IJLQSI 



104 



IJLQSH 
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r r T — ■■ 1 

I In-line | | Second level | 
I linkage | Sharable modules | routine | 

I or code | -j 4 1 f 

Macro Instruction j Note 5 | Size | Name | Size ( Name | 

SEQOUT I 8 I 68 I ULQSO | 70 | IJLQEX | 

SKIP (CT) I 8 I U8 I IJLQST | 104 | IJLQSH | 

SKIP (S) I 8 + no. I 76 | IJLQSK | lOU | IJLQSH | 

I to be I I I I I 

I skipped I j III 

SOURCE I 8 I 1U4 I ULQSR | 104 | IJLQSH | 

3TARTARU \ H2 | 269 | IJLQSS | 78 | IJIQFL | 

+ + + 4 + -f 

STARTIN I 12 I 512 | IJLQCL | 78 | IJLQFL j 

— + + + — + + ^ 

SIOPARU I 42 I 269 | ULQSS | 78 | IJLQFL | 

STOPLN I 12 I 512 | IJLQCL | 78 | IJLQFL | 

TIMESTNP I 8 I 198 | ULQTS | 70 | IJLQEX | 
4 4 4 4 ^ ^ 

TRANS I 10 I 114+ I IJLQTR | | j 

I i 266T I III 



WRU 



Figure 72. Storage Requirements for other QTAM Macro Instructions (Part 
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where: 
C = 
U = 
S = 
CT = 
T = 



character operand specified (conditional) 

character operand null (unconditional) 

skip to and include designated character configuration 

skip designated count of nonblank characters 

number of translation tables 

Translation tables are: RCV1030, RCV1050, RCV1050F, 
RCV1060, RCV2260, RCV2740, RCV2740F, RCVARU , RCV83B3 , 
RCV115A, RCVTWX, RCVITA2 , RCVZSC3, SND1030, SND1050, 
SND1060, SND2260, SNDITA2, SNDZSC3, SND27U0, SND83B3 , 
SND115A, SNDTWXE, and SNDTWXO 



Notes 



1. These delimiters or modules cause linkages to QTAM routines 
included in Figure 66. 

2. If the macro instruction MSGTYPE, ROUTE, or SKIP (S) is used 
in the program, the storage estimate for IJLQMT, IJLQRG, or 
IJLQSK, respectively, is not included in the storage estimate 
for BOA. 

3- Because the user defines his own DTFxx and xxMOD macros for 
his message log file, the size requirements cannot be 
specified here- Information to determine the storage 
requirements for the specific logging medium is given under 
the pertinent DTF and Module, i.e., DTFMT and MTMOD for Tape. 
Refer to the section IOCS Declarative Macro Instructions . 

U- Identifies entry point for RCVSEG and SENDSEG subgroups of 
LPS. 

5. Figure 68 shows the linkage requirement for OPEN, CLOSE, GET, 
and PUT. 



Figure 72. Storage Requirements for Other QTAM Macro Instructions 
(Part 5 of 5) 
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Other IOCS Macro Instructions 

Figure 71 lists the main storage requirements for the expansion of the remainder 
of the IOCS macro instructions. 

I 

I NUMBER OF BYTES 



I Macro 

I Instruction 

I Name 



44- 



I Basic 

I Storage 

I Requirement 



Storage 
Required For 
Literals (1) 



Variable 
Requirements 



ASMTRTAB 



h 



256n 



++- 



n=number of different 
operands coded 



BTWAIT 



\ 

I CCB 

I < 



I 16 



++- 



I 16-24 



++- 



CHECK 



CHGNTRY 



I 

I 

I CHGNTRY 



8 



+ U 



4^ 

I 20 (start- stop) 

I 

^ 



I 72 (BSC) 



^ 

I 210 (start-stop 
I Auto Poll) 



++- 



(3) 



+6 (No operands coded in 
register notation) 



+6 (No operands coded in 
register notation) 



+72 (No operands coded in 
register notation) 



\ 

I CHNG (2) 



22 (2260 Local) 



++- 



+4 (No operands coded in 
register notation) 



4- 



I 

I CLOSE 



h 



I 



++- 



I 10 



+ 8 



++- 



+4 per filename parameter, 

or 
+8 per register parameter 



CLOSER 



I 14 plus 10 
I if any register 
I parameter is 
I specified 



+8 



++- 
I 10-18 

4-1 

20 

44 



+14 per filename parameter, 

or 
+8 per register parameter 



CNTRI 



h- 



CONTROL 
(BTAM) 



+ 4 



+38 (No operands coded in 
register notation) 



j DISEN 



+4 



44- 



(3) 



I DSPLY 



I 24 



+4 



44- 



(3) 



ENDFI 



I 

I ESETL 

I 

I EXCP 



j 8-12 



+ 12 



44- 



I 8-12 



+4 



44- 



I FEOV 



I 2-6 



0-+4 



44- 



I 8-12 



+ 4 






FREE 



I 8-12 



0-4 



Figure 73. Other IOCS Macro Instruction Storage Requirements (Part 1 of 4) 
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NUMBER OF BYTES 



I 



Macro 

Instruction 

Naire 



++- 



j Basic 

I Storage 

I Requirement 



Storage 
Required For 
Literals (1) 



Variable 

Re qui r eme nt s 



GET 



I ] 



LBRET 



8 



+U per symbolic 
name 



(3) 



+-^ 

I 2 
++- 



+2 



LERB 



20 



++- 



LITE 



LERPRT 



h- 



+U 



(3) 



++-- 



14 



++- 



+8 (No operands coded in 
register notation) 



LOPEN 



I ] 



44- 



+2 (No operands coded in 
register notation) 



NOTE 



I 12 



+ 4 



44- 



OPEN 



h- 



OPENR 



H- 



POINTR 






10 



+8 



+U per filename parameter, 

or 
+8 per register parameter 



+^ 

I 14 plus 10 if 
I any register 
I parameter is 
I specified 
+^ 

I 8 
I 



+ 8 



+1U per filename parameter, 

or 
+8 per register parameter 



+U per symbolic 
name 



(3) 



44- 



POINTS 



1 8-12 



+U 



44- 



POINTW 



h 



I 8 



+U per symbolic 
name 



(3) 



44- 



PRTOV 



h- 



+4 per symbolic 
name 



(3) 



44- 



PUT 



I 8-12 



+4 per symbolic 
name 



(3) 



44- 



RDLNE 



I 12 



+ U 



(3) 



44- 



READ 



h- 



I 8-36 



+U per symbolic 
name 



44- 



READ (BTAM) 



I 20 



44- 



+38 (No operands coded in 
register notation) 



RELBUF 



lU 



h- 



44- 



+4 (First operand not coded 
in register notation) 



REISE 



+U per symbolic 
name 



+ U 



.i.±. 
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NUMBER OF BYTES 



Macro 

Instruction 

Name 

1 

REQBUF 



I ] 



Basic 

Storage 

Requirement 

4+ 

12 



++ 



Storage 
Required For 
Literals (1) 



Variable 
Requirements 

+8 (All possible operands 
not coded in 
register notation) 



RESCN 



2H 



+ 4 



(3) 



++ 



RESETPL 



12 



I < 



4+ 



+U (No operands coded in 
register notation) 



SEOV 



10 



+ 8 



+3 



++ 



SETFL 



8-12 



+ 12 



++ 



SET! 



lU-22 



+ 8 



44 



TRNSLATE 



26 



44 



+16 (No operands coded in 
register notation) 



TRSRCTW 
(BTi^J WTTA) 



256 



4+ 



TRSRCT3 

(BTAM WTTA) 

\ 

TRSSCTW 

(BTAM WTTA) 



256 



256 



h- 



44 



TRSSCT3 
(BTAM WTTA) 



256 



I f 

I- 



44 



TRUNC 



8-12 



0-+4 



+4 



TWAIT 



2^ 



+20 (All possible operands 
not coded in register 
notation) 



.±±. 
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NUMBER OF BYTES 



"T+- 



h- 



Macro 

Instruction 

Name 

WAIT 



44 



Basic 
Storage 
Requirement 
10-+4 



Storage 
Required for 
Literals (1) 



j Variable 

I Requirements 



WAIT (BTAM) 



16 



h- 



44 



1+20 (No operands coded in 
I register notation) 



WAITF 



8-12 



0-+4 



44 



1+4 per filename parameter 

I or 

1+8 per register parameter 



WRITE 



8-26 



0-+U 



44 



WRITE (BTAM) 



Notes: 



20 



1+38 (No operands coded in 
I register notation) 

.JL 



1. The storage requirement for literals shared by more than one macro 
instruction should be included for only one macro instruction. For 
example, EXCP and WAIT share a common CCB name. Other macro instructions 
can share a common filename. 

2. CHNG is provided for Basic Programming Support compatibility. 

3. +U per symbolic name that is specified. +2 per register that is specified 
in ordinary register notation. +0 per register that is specified in 
special notation. 
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Relocatable Subroutines 

This section lists the amounts of main storage required for FORTRAN, 
Basic FORTRAN, PL/I, and COBOL subroutines when they have been linkage 
edited into an executable object program. For many FORTRAN, Basic 
FORTRAN, COBOL, and PL/I main programs or subroutines, several modules 
are required. Basic FORTRAN programs,, for example, require the modules 
IJTACOM, IJTACON, and IJTFIOS. 

The number of blocks (physical records) per routine in the relocatable 
library is also shown in this section. On a 2311, each track contains 
nine 322-byte blocks; on a 231U, each track contains sixteoi 322-byte 
blocks. This information is useful in estimating linkage editor times. 
See Linkage Editor Tiroes discussion in IBM System/360 Disk Operating 
System, Timing Estimates listed on the front cover of this manual. 



COBOL SUBROUTINES 



For additional information about these subroutines, see the COBOL 
Programmer's Guide listed in the Preface of this publication. 

Number 
Relocatable Library 
Blocks (Physical Records ) 

6 

3 

2 

2 



Module Name and 




Alternate Entry 


Bytes of Main 


Point (s) 


Storage 


IHDOOOOO 


426 


IHDOOOOl 




IHDOOIOO 


428 


IHDOOlOl 




IHD00200 


142 


IHD00201 




IHD00300 


170 


IHD00301 




IHDOOUOO 


804 


IHDOOUOl 




IHD00500 


436 


IHD00501 




IHD00600 


348 


IHD00601 




IHD00602 




IHD00700 


280 


IHD00701 




IHD00800 


68 


IHD00801 




IHD00802 




IHD00900 


56 


IHD00901 




IHDOIOOO 


53 


IHDOlOOl 




IHDOllOO 


216 


IHDOllOl 




IHD01102 
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Module Name and 




Alternate Entry 


Bytes of Main 


Point (s) 


Storaqe 


IHD01200 


36 


IHD01201 




IHD01300 


56 


IHD01301 




IHDOIUOO 


52 


IHD01401 




IHD 01500 


330 


IHD01501 




IHD01502 




IHD 01504 




IHD01600 


84 


IHD01601 




IHD01602 




IHD01700 


217 


IHD01701 




IHD01800 


57 


IHD01801 




IHD01802 




IHD01900 


812 


IHD01901 




XHD01902 




IHD0190a 




IHD01908 




IHD02000 


358 


IHD02001 




IHD02002 




IHD02100 


178 


IHD02101 




IHD02200 


20 


IHD02201 




IHD02300 


188 


IHD02301 




IHD02302 




IHD02304 




IHD02U00 


182 


IHD02a01 




IHD02500 


196 


IHD02501 




IHD02600 


64 


IHD02601 




IHD02700 


420 


IHD02701 




IHD02702 





Number 
Relocatable Library 
Blocks (Physical Records ) 
4 
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IHD02800 372 U 

IHD02801 

IHD02802 
IHD02900 316 U 

IHD02901 
IHD03000 580 5 

IHD03001 

IHD03002 
IHD03100 880 5 

IHD03102 

IHD0310U 

IHD03108 
IHD03200 607 H 

IHD03201 

IHD03300 228 3 

IHD03301 
IHD03a00 630 U 

IHD03U01 
IHD03500 796 5 

IHD03501 

IHD03502 
IHD03600 338 3 

IHD03700 691 5 

IHD03701 

IHD03702 



IHD03800 1162 7 

IHD03801 

IHD03802 

IHD03803 

IHD0380a 
IHD03900 781 U 

IHD03901 
IHDOUOOO 622 U 

IHD04001 
IHDOUIOO 1888 7 

IHDOmOl 
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FORTRAN SUBROUTINES 



For additional information about these subroutines, see the FORTRAN IV 
Prograiraner's Guide listed in the Preface of this manual. 



Bytes of Main 



Module Name 


Storaqe 


IIFACOM 


1480 


ILFADCON 


4312' 


ILFCLABS 


mn 


ILFCLAS 


208 


IIFCLEXP 


208 


ILFCLLOG 


224 


IIFCLSCN 


408 


ILFCLSQT 


168 


IIFCSABS 


136 


ILFCSAS 


208 


ILFCSEXP 


208 


ILFCSLOG 


216 


IIFCSSCN 


34U 


ILFCSSQT 


168 


IIFDEBUG 


1872 


IIFDIOCS 


584 


ILFFCDXI 


288 


IIFFCXPI 


272 


ILFFDUMP 


472 


ILFFDVCH 


72 


ILFFDXPD 


176 


IIFFDXPI 


168 


ILFFEXIT 


32 



Number 
Relocatable Library 
Blocks (Physical Records) 

8 

20 

3 

3 

4 

4 
5 
3 
3 
3 

4 
4 
4 
3 
10 

4 
3 
3 
4 
3 



Appendix G 345 



ILFFINT 1488 9 

ILFFICXrS 3032 16 

IIFFIXPI 184 3 

ILFFMAXD 120 2 

ILFFMAXI 224 3 

IIFFMAXR 216 3 

ILFFOVER 80 2 

ILFFRXPI 168 3 

ILFFRXPR 168 3 

ILFFSLIT 192 3 

ILFGHTAB 256 3 

ILFIBCOM 3928 19 

IIFIBERR 208 3 

ILFLASCN 400 4 

IIFLATN2 528 5 

ILFLERF 800 6 

ILFLEXP 480 4 

ILFLGAMA 728 5 

ILFLLOG 392 4 

ILFLSCN 416 4 

IIFLSCNH 304 3 

ILFLSQRT 160 3 

ILFLTANH 312 3 

ILFLTNCT 416 3 

IIFNAMEL 2224 11 

ILFSASCN 312 3 

IIFSATN2 384 4 

IIFSERF 432 3 

ILFSEXP 304 4 

IIFSGAMA 488 5 

ILFSLOG 288 3 

ILFSSCN 304 3 

ILFSSCNH 248 3 

ILFSSQRT 184 3 

ILFSTANH 234 3 

ILFSTNCT 320 4 

ILFTRBK 640 6 

ILFUNTAB 256 3 



BASIC FORTRAN SUBROUTINES 

For additional inf orira-tion about these subroutines,, see the Basic 
FORTRAN IV Programmer's Guide listed in the Preface of this publication. 

Number 
Bytes of Main Relocatable Library 
Module Name Storage Blocks (Physical Records ) 

IJTAAFR 160 2 

UTACOM 2416 13 

IJTACON 2448 12 

IJTADIR 1112 8 

IJTADXD 200 3 
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UTADXI lUU 3 

IJTAIXI 160 3 

UTAPST lUU 3 

IJTARBE 928 6 

IJTARXI 136 3 

UTARXR 208 3 

IJTDVCK 64 2 

IJTEXPN 280 3 

UTFDMP 648 6 

IJTFIOS 3568 17 

IJTFXIT 2U 3 

UTKEXC 14U 2 

IJTIFIX 112 2 

UTLEXP 480 4 

IJTLLOG 368 3 

UTLSCN 392 4 

IJTLSQT 168 3 

UTLTAN 312 3 

IJTLTNH 336 3 

UTMAXD 104 2 

UTMODI 56 2 

IJTMODR 104 2 

IJTOVRF 80 3 

UTS INT 72 2 

UTS LIT 184 3 

IJTSLOG 264 3 

UTSMXO 192 3 

IJTSMXl 192 3 

IJTSSCN 280 3 

IJTSSQT 19 2 3 

UTSTAN 192 2 

IJTSTNH 264 3 



PL/I SUBROUTINES 



For additional inforiration about these subroutines see the PL/I 
Programmer's Guide listed in the Preface of this publication. 

Number 
Bytes of Main Relocatable Library 

Blocks (Physical Records ) 

10 

4 

4 

3 

3 

3 

3 
3 
3 
4 
3 



Module Name 


Storaqe 


IJKEXHC 


1200 


UKQALM 


456 


IJKQASM 


232 


UKQBLA 


280 


IJKQBSA 


208 


UKQCLA 


288 


IJKQCSA 


208 


UKQDLA 


288 


IJKQDSA 


212 


UKQLLA 


384 


IJKQLSA 


272 
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IJKQNLD 
UKQNSD 
IJKQQLM 
IJKQQSM 
UKQRLB 



IJKQRSB 
UKQSLD 
IJKQSSD 
UKQTLB 
IJKQTSB 



IJKRBBM 
UKRBIM 
IJKRBKA 
UKREBM 
IJKRELM 

IJKREPM 
IJKRESM 
UKRGIM 
IJKRGKM 
UKRMBX 

UKRMLX 
IJKRMPX 
IJKRWSX 
IJKRSBM 
IJKRSLM 

IJKRSPM 
UKRSSM 
IJKRUBM 
UKRWBM 

IJKRWLM 
IJKRWPM 
IJKRWSM 
UKRXLM 
IJKRXSA 

IJKSDMP 
UKSDTM 
IJKSTMM 
IJKSYSA 
UKSYSI 
IJKSZBA 

IJKSZCA 
UKSZLM 
IJKTCBM 
UKTCUM 
IJKTDPD 
IJKTDIM 

IJKTFDM 
UKTFMM 
IJKTGDI 
UKTLCM 
IJKTLIM 
UKTLOM 
IJKTLTB 
IJKTPSM 
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608 


4 


480 


4 


160 


4 


176 


3 


776 


5 


408 


3 


416 


4 


304 


3 


360 


3 


280 


3 


424 


4 


292 


4 


292 


3 


92 


3 


152 


3 


140 


3 


144 


3 


108 


2 


84 


3 


278 


3 


172 


3 


386 


4 


132 


3 


200 


3 


192 


3 


265 


3 


184 


3 


148 


3 


356 


4 


244 


3 


577 


5 


236 


3 


168 


3 


152 


3 


56 


2 


58 


2 


104 


2 


201 


3 


152 


3 


1772 


8 


1636 


8 


60 


3 


550 


4 


252 


3 


184 


3 


540 


4 


480 


4 


196 


3 


414 


4 


876 


5 


1158 


7 


1076 


7 


7 


2 


72 


3 


Gen. and Maint. 



IJKTRGM 
UKTRON 
IJKTSIM 
IJKTSTM 
IJKTXCF 
UKTXRM 
I JKTXRN 
IJKVBCK 



398 
1372 
652 
674 
120 
356 
378 
60 



IJKVBTM 
UKVCBM 
IJKVCEM 
UKVCFM 
IJKVCPM 



132 
238 
984 
680 
21U 



IJKVCTM 
IJKVECW 
UKVFCM 
IJKVGIM 
UKVIGM 



392 
4 04 
492 
236 
148 



UKVIIM 
IJKVNPM 
UKVPCM 
IJKVPNM 
IJKVPR^5 



180 

324 

68 

316 

1196 



IJKVRPK 
UKVTBM 
IJKVTCM 
IJKXTBM 
IJXSYSA 
IJXSYSI 



796 
228 
284 
128 
305 
224 



IOCS Modules for the Compilers 



These modules are described in Appendix B of this publication. 

Number 
Bytes of Main Relocatable Library 

Blocks (Physical Records ) 

2 
2 
2 
2 

2 
2 
2 
3 
3 

2 
2 
3 
3 

2 
2 
2 
2 



COBOL Module 


Module Name 
IJCFZIZO 


Storage 


CD MOD 


96 


(Card 


IJCFZIZl 


100 


Modules) 


IJCFZIZ2 


96 




UCFZIZ3 


96 




IJCFAOZO 


92 




IJCFAOZl 


128 




IJCFA0Z2 


132 




IJCFAOZ4 


248 




IJCFA0Z5 


224 




IJCFZOZl 


74 




IJCFZ0Z2 


80 




IJCFZ0Z4 


208 




IJCFZ0Z5 


192 




IJCFZIIO 


128 




IJCFZIIl 


132 




IJCFZII2 


128 




IJCFZII3 


128 
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IJCFAOIO 


116 


IJCFAOIl 


152 


IJCFA0I2 


156 


IJCFAOm 


264 


IJCFA0I5 


248 


IJCFZOIl 


116 


IJCFZ0I2 


124 


IJCFZOm 


232 


UCFZ0I5 


216 



Note ; 

The last character in each module name identifies the card device; 

= 25U0 (input only) 

1 = 1412 

2 = 2520 

3 = 2501 

4 = 2540 when CRDERR=RETRY is specified. 



PRMOD 


IJDFAPIZ 


280 


(Printer 


UDFAPZZ 


268 


Module) 


IJDFZPIZ 


152 




UDFZPZZ 


118 


MTMOD 


IJFFBCZZ 


894 


(Magnetic 


IJFDBCZZ 


848 


Tape 


IJFVBCWZ 


1274 


Modules) 


IJFVBCZZ 


1138 


SDMOD 


UGFIEZZ 


614 


(Sequential 


IJGFIZZZ 


470 


DASD 


IJGFOZZZ 


554 


Modules) 


IJGFUZZZ 


806 




IJGUIEZZ 


641 




IJGUIZZZ 


541 




IJGUOZZZ 


671 




IJGUUZZZ 


953 




IJGVIEZZ 


741 




IJGVIZZZ 


637 




IJGVOZZZ 


1077 




IJGVUZZZ 


1094 


DAMOD 


IJIBAIZZ 


1064 


(Direct 


IJIBAZZZ 


864 


Access 


IJIBZIZZ 


848 


Module) 


UIBZZZZ 


648 




IJIFAIZZ 


988 




UIFAZZZ 


794 




IJIFZIZZ 


648 




IJIFZZZZ 


492 


ISMOD 


IJHAABZZ 


4524 


( Indexed 


UHAARCP 


4334 


Sequential 


IJHAARCZ 


3966 


DASD 


UHAARZP 


4062 


Module) 


IJHAARZZ 


3684 




UHAASZZ 


3888 




IJHAIZZZ 


3040 




IJHBABZZ 


4280 




UHBARCP 


4090 




IJHBARCZ 


3718 



3 
2 
2 
2 

6 
5 
6 
6 

4 
3 
3 
4 
4 
3 
4 
5 
4 
4 
5 
6 

5 
4 
4 
4 
5 
4 
4 
3 

19 
19 
18 
17 
16 
16 
13 
18 
18 
16 
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IJHBARZP 


3820 


IJHBARZZ 


3440 


IJHBASZZ 


3642 


IJHBIZZZ 


2794 


UHUABZZ 


4064 


IJHUARCP 


3822 


IJHUARCZ 


3506 


IJHUARZP 


3540 


IJHUARZZ 


3224 


IJHUASZZ 


3428 


IJHUIZZZ 


2584 


IJHZLZZZ 


811 


IJHZRBZZ 


2124 


IJHZRRCZ 


1460 


IJHZRRZZ 


1290 


IJHZRSZZ 


1268 



17 
15 
15 
12 
17 
17 
15 
15 
14 

15 

11 

4 

10 

8 

7 

7 



PI/I Module 


Module Name 
IJCFAOIl 


Storaqe 


CD MOD 


152 


(Card 


IJCFA0I2 


156 


Modules) 


IJCFAOIU 


264 




IJCFAOZl 


128 




UCFA0Z2 


132 




IJCFAOZU 


248 




IJCFYOIl 


132 




UCFY0I2 


136 




IJCFYOm 


248 




IJCFYOZl 


108 




IJCFY0Z2 


112 




IJCFYOZU 


224 




IJCFZIZO 


96 




IJCFZIZl 


100 




IJCFZIZ2 


96 




IJCFZIZ3 


96 




IJCFZIIO 


128 




UCFZIIl 


132 




IJCFZII2 


128 




IJCFZII3 


128 




IJCFZOZl 


74 




UCFZ0Z2 


80 




IJCFZOZU 


208 




IJCFZOIl 


116 




UCFZ0I2 


124 




IJCFZ0I4 


232 



Number 
Bytes of Main Relocatable Library 

Blocks (Physical Records) 



Note : The last character in each module name identifies the card 
device : 

= 25U0 (input only) 

1 = 1442 

2 = 2520 

3 = 2501 

4 = 2540 when CRDERR=RETRY is specified. 
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PRMOD 
(Printer 

Modules) 



IJDFAZIZ 
IJDFAZZZ 
IJDFYZIZ 
UDFYZZZ 
IJDFZPIZ 
UDFZPZZ 



220 

196 

96 

72 

152 
118 



MTMOD IJFFBZZZ 

(Magnetic IJFFZZZZ 

Tape Modules) IJFUBZZZ 

IJFUZZZZ 

UFVZZZZ 



894 
846 
680 
672 
890 



SDMOD IJGFIETZ 

(Sequential UGFIEZZ 

DASD Modules) IJGFOEZZ 

IJGFUEZZ 



742 
614 
618 
970 



IJGUIEZZ 
UGOOEZZ 
IJGUUEZZ 



641 

729 

1101 



IJGVIEZZ 
UGVOEZZ 
IJGVUEZZ 



741 
1145 
1270 



DAMOD 
(Direct 
Access 
Modules) 



IJIFAZZZ 
IJIFZZZZ 



ISMOD IJHAARCP 

(Indexed UHAARCZ 

Sequential IJHAARZP 

DASD Modules) IJHAARZZ 



794 
492 



4334 
3966 
4062 
3684 







IJHBARCP 
UHBARCZ 
IJHBARZP 
UHBARZZ 


4090 
3718 
3812 
3440 






IJHUARCP 
IJHDARCZ 
IJHUARZP 
UHUARZZ 


3822 
3506 
3540 
3224 






UHZLZZZ 
IJHZRRCZ 
UHZRRZZ 
IJHZRSZZ 


811 
1460 
1290 
1268 


DIMOD 
(Device 
Independent 
Modules) 


UJFCBID 
IJJFCBZD 
UJFCIID 
IJJFCIZD 


747 
668 
368 
308 


RPG Modu] 


Les 


Module Name 

IJCFCCZO 
UCFCCZl 
IJCFCCZ2 


Bytes of Main 
Storaqe 


CD MOD 
(Card 
Modules) 


218 
132 
218 
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19 
18 
17 
16 

18 
16 
17 
15 

17 
15 
15 
14 

4 
8 

7 
7 

4 
4 
3 
3 



Number 
Relocatable Library 
Blocks (Physical Records) 





IJCFCIZO 


158 




IJCFCIZl 


12U 




IJCFCIZ2 


1U2 




IJCFYOIO 


96 




IJCFYOIl 


132 




IJCFY0I2 


136 




UCFYOZO 


72 




IJCFYOZl 


108 




UCFYOZ2 


112 




IJCFZIIO 


128 




UCFZIIl 


132 




IJCFZII2 


128 




IJCFZII3 


128 




IJCFZIZ3 


96 


Note: The 


last character 


in the mo 


= 25U0 






1 = 14U2 






2 = 2520 






3 = 2501 






PRMOD 


IJDFYPZZ 


138 


(Printer 






Module) 






1 MTMOD 


IJFFZCZZ 


1046 


1 (Magnetic 


IJFVZCWZ 


1200 


Tape 






Modules) 






1 DAMOD 
■ (Direct 


" IJIBZZZZ 


648 






Access 






Module) 






ISMOD 


IJHZRBZZ 


2124 


( Indexed 


IJHZRRZZ 


1290 


Sequential 


IJHZRSZZ 


1268 


Modules) 






SDMOD 


IJGFIZZZ 


470 


(Sequential 


IJGFUZZZ 


806 


DASD 


IJGFOZZZ 


554 


Modules) 


IJGVIZZZ 


637 




IJGVUZZZ 


1094 




UGVOZZZ 


1077 



10 

7 

7 



Other Modules 
Required for 



the System 


Module Name 
UFWEZZZ 


Storaqe 


Tape Work 


322 


File Modules 


IJFWZNZZ 


450 




IJFWZZZZ 


232 


Disk Work 


IJGWEZZZ 


728 


File 


IJGWZNZZ 


800 


Modules 


IJGWZRZZ 


738 



Number 
Bytes of Main Relocatable Library 

Blocks (Physical Records) 
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Nondevice 


IJJCPO 


363 


Dependent 


IJJCPl 


285 


IOCS Modules 


IJJCP2 


108 


Used by IBM 


UJCP3 


38 


Processor 






Programs 


UJCPDO 


521 




IJJCPDl 


451 




UJCPD2 


252 




IJJCPD3 


176 




IJJCPDV 


483 




IJJCPDV2 


184 




IJJCPV 


317 




UJCPV2 


48 




IJJCPVl 


2U5 




IJJCPIN 


213 




IJJCPON 


291 




IJJCPDVl 


427 




IJJCPDIN 


395 




UJCPDO N 


465 
Bytes of Main 


BTAM Modules 


Module Name 
ULOAY 


Storaqe 




78 


BTAM 


IJLOEZ 


88 


Channel 


IJLOOY 


52 


Program 


IJLOIZ 


107 


Modules (For 


IJLOIJ 


155 


start- stop. 


IJL02Z 


95 


the modules 


UL02J 


143 


include a 






Table of 


IJL03Z 


156 


Special 


IJLOUZ 


46 


Characters) 


IJL05Z 


40 




UL07Z 


84 




IJL07J 


100 




UL07Y 


170 




IJL08Z 


45 




IJL08X 


60 




IJL08H 


65 




UL08P 


108 




IJL089 


113 




IJL08M 


152 




UL08R 


101 




IJL08Q 


132 




IJL08U 


90 




IJL08Y 


70 




IJL09Y 


74 




IJLIOY 


52 




IJL@06Z 


16 


BTAM W'lTA 


IJLWTZ 


10 31 


Subroutine 







3 
3 
3 

Number 
Relocatable Library 
Blocks (Physical Records) 
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BTAM Modules 


Module Name 
IJLOBZ 


Storaqe 


BTAM Channel 


2U0 


Program 


ULOBY 


296 


Modules for 


IJLOBA 


300 


BSC 


ULOBC 


32a 




IJLOBE 


300 




IJLOBG 


324 




ULOBI 


300 




IJLOBK 


320 




IJLOBM 


296 




ULOBO 


320 




ULOBQ 


296 




IJLOBS 


320 




ULOBD 


296 




IJLOBW 


320 




IJLOBE 


324 




IJL0B6 


300 




IJLOBS 


324 




IJLOCY 


196 




IJLOCZ 


148 




IJLODY 


140 




IJLODZ 


96 




IJLIBZ 


220 




IJLICZ 


164 




IJLIDZ 


132 




IJL2DZ 


84 


BSC Tables 


IJLEBD 


53 


of Special 


IJLASC 


53 


Characters 


IJLTCD 


53 



Number 
Bytes of Main Relocatable Library 

Blocks (Physical Records) 



3 
3 
3 
3 
3 

3 
3 
3 
3 
3 

3 
3 
3 
3 
3 

3 
3 
2 
2 
2 
2 
2 
2 
2 
2 

2 
2 
2 
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Module Name 
IJLRASA 


Storaqe 


BTAM 


256 


Translation 


ULRCTW 


256 


Tables 


IJLRCTl 


256 




IJLRCT2 


256 




IJLRCT3 


256 




ULRC30 


256 




IJLRCUO 


256 




ULRC50 


256 




IJLRC60 


256 




ULRC80 


256 




IJLRF40 


256 




IJLRF50 


256 




IJLRSCI 


256 




IJLSASA 


256 




IJLSCTW 


256 




IJLSCTl 


256 




IJLSCT2 


256 




IJLSCT3 


256 




IJLSD30 


256 




ULSD«*0 


256 




IJLSD50 


256 




IJLSD60 


256 




IJLDS80 


256 




IJLSSCI 


256 



Number 
Bytes of Main Relocatable Library 

Blocks (Physical Records ) 



External Storage Requirements 



This section discusses the residence requirement for each IBM-supplied 
component in a system pack. The overall organization of the system pack 
is as follows : 



Name 
IPL Program 
System Volume Label 
System Directory 
Librarian Work Area 
Transient Directory 
Open Routine Directory 



Start Location, if Present 
Track of Cylinder 0. 
Track of Cylinder 0. 
Track 1 of Cylinder 0. 
Tracks 2, 3, and U of Cylinder 0. 
Track 5 of Cylinder 0. 
Track 6 of Cylinder 0. 
Track 7 of Cylinder 0. 



Library Routine Directory 

Foreground Program Directory Track 8 of Cylinder 0. 



Problem Program Phase 
Directory 

Core Image Directory 



Track 9 of Cylinder 0. 

Track of Cylinder 1, on a 2311; track 
10 of Cylinder on a 2314. 
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Core Image Library 



Relocatable Directory, 
Optional 

Relocatable library. 
Optional 

Source Statement 
Directory, Optional 

Source Statement Library 
Optional 

Label Cylinder 



Beginning of the first available track 
following the core image directory. 

Track of the first available cylinder 
following the core image library. 

Beginning of the first available track 
following the relocatable directory. 

Track of the first available cylinder 
following the previous library. 

Beginning of the first available track 
following the source statement directory. 

First full cylinder after the last 
system library. 



Track Provides Storage For 

Background User Labels 

1 Background PARSTD Labels 

2 Foreground 2 User Labels 

3 Foreground 2 PARSTD Labels 
U Foreground 1 User Labels 

5 Foreground 1 PARSTD Labels 

6-9 Standard Labels (2311) 

or 

6-19 Standard Labels (2314) 



Volume Table of Contents 
(VTOC) 



Location assigned by the user. 
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Direc±.ory Ent.ries ; Each track in the core image directory can contain 
entries for 144 phases on the 2311 and 270 phases on the 2314. Each 
track in the relocatable directory can contain entries for 18 modules 
on the 2311 and 340 modules on the 2314. Each track in the source 
statement directory can contain entries for 160 books on the 2311, and 
270 books on the 2314. However, the first track in both the relocatable 
and the source statement directories can contain five fewer entries. 

Library Block Lengths ; In the core image library on a 2311, each track 
contains -two 1728-byte blocks; on a 2314, each track contains four 
1688-byte blocks. In the relocatable library on a 2311, each track 
contains nine 322 -byte blocks? on a 2314, each track contains sixteen 
322- byte blocks. In the source statement library on a 2311, each track 
contains sixteen 160-byte blocks; on a 2314, each track contains 
twenty-seven 160-byte blocks. 



Core Image Library 



Component 



Supervisor Nucleus {6K) 

Supervisor Nucleus (8K) 

All Other Transient Functions^ 

Job Control 

Linkage Editor 

IPL 

CSERV 

DSERV 

RSERV 

SSERV 

MAINT 

CORGZ 

Assembler 

Assembler F 

Autotest 

COBOL 

COBOL Debug 

FORTRAN 

Basic FORTRAN 

PL/ 1 

RFG 



Number of Library Blocks 
(Physical Records) 



2311 


2314 


4 


- 


5 


5 


202 


200 


20 


20 


14 


15 


4 


4 


5 


5 


5 


5 


4 


4 


4 


4 


32 


32 


17 


17 


87 


87 


69 


69 


58 


- 


171 


173 


4 


4 


42 


42 


20 


20 


264 


268 


98 


101 
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Tape Sort 

Disk Sort 

Tape and Disk Sort 

CE Serviceability Programs 

Utilities: 

Card- to- Disk 

Card- to -Printer and/or Punch 

Card-to-Tape 

Clear Data Cell 

Clear Disk 

Data Cell to Data Cell 
Data Cell to Disk 
Data Cell to Printer 
Data Cell to Tape 
Disk- to -Card 

Disk to Data Cell 
Disk-to-Disk 
Disk- to -Printer 
Disk-to-Tape 
Tape-Compare 

Tape-to-Card 

Tape to Data Cell 

Tape-to-Disk 

Tape-to-Printer 

Tape-to-Tape 

VTOC Display 

Copy Disk-to-Disk 

Copy Disk or Data Cell- to- Tape 

Copy Disk-to-Card 

Restore Tape-to-Disk or Data Cell 

Restore Card-to-Disk 

Initialize Disk 

Alternate Track Assignment Disk 

Initialize Data Cell 

Alternate Track Assignment Data Cell 

0LTEP2 

Vocabulary File Utility 
BTAM Transient Routines 
QTAM Transient Routines 

Notes: 



36 


36 


74 


76 


69 


70 


14 


14 


10 


10 


12 


12 


10 


10 


H 


4 


4 


4 


11 


11 


11 


11 


12 


12 


10 


10 


11 


11 


11 


11 


11 


11 


12 


12 


10 


10 


5 


5 


11 


11 


11 


11 


11 


11 


11 


12 


10 


10 


3 


3 


7 


7 


7 


7 


7 


7 


4 


4 


4 


4 


14 


14 


25 


26 


9 


10 


20 


20 


16 


16 


19 


19 


20 


20 


22 


22 



1. All transient functions not specifically listed are grouped 
together- 

2. If the OLTEP Tape-Gap timing program is run in a 
multiprogramming environment, the performance of any foreground 
progreim may be affected. 
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Relocatable Library 



Component^ 

System Control 

Job Control 

Linkage Editor 

CSERV 

DSERV 

RSERV 

SSERV 

IPL 

CORGZ 

MAINT 

Standard System Dump 

Translating System Dump 
Assembler 
Assembler F 
Auto test 
COBOL 

COBOL Subroutines 
COBOL Debug 
FORTRAN 

FORTRAN Subroutines 
Basic FORTRAN 
Basic FORTRAN Subroutines 



Number of 
Library Blocks 
(Physical Records) 

790 



60U 
475 
358 
1342 
161 
23 
300 
279 
140 
148 



PL/ 1 

PL/I Subroutines 



2252 
342 



RPG 

Tape Sort 

Tape and Disk Sort 

Disk Sort 

CE Serviceability Programs 

Utilities (3 Groups) 

Group 1 

Group 2 

Group 3 
OLTEP^ 

Vocabulary File Utility 
BTAM Modules 
QTAM Modules 
Compiler IOCS Modules 

COBOL 

piyi 

RPG 

Non-Device Dependent 



782 
204 
974 
518 
51 

666 
432 
230 
144 
139 
179 
394 

546 

384 

102 

46 



If the OLTEP Tape -Gap timing test program is run in a 
multiprogramming environment, the performance of any foreground 
program may be affected. 
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Source Statenient Library- 



File 

Definition 

Macros- 



Number of 

Library 

Blocks 



A.CDMOD 


197 


A. DAMOD 


188 


A.DIMOD 


lUO 


A.DTFBG 


2 


A.DTFCD 


108 


A.DTFCN 


73 


A, DTFDA 


198 


A.DTFDI 


61 


A. DTFEN 


2U 


A.DTFIS 


7 


A.DTFMR 


72 


A.DTFMT 


165 


A.DTFOR 


91 


A.DTFPH 


51 


A. DTFPR 


56 


A.DTFPT 


111 


A.DTFSD 


197 


A . DTFSR 


62 


A.ISMOD 


4 


A.MRMOD 


102 


A.MTMOD 


620 


A.ORMOD 


421 


A.PRMOD 


95 


A. PTMOD 


206 


A.SEMOD 


120 


A. SDMODFI 


193 


A.SEMODFO 


196 


A. SDMODFU 


301 


A.SCMODVI 


115 


A.SDMODVO 


IHH 


A.SDMODVU 


197 


A, SDMODUI 


103 


A.SEMODUO 


114 


A. SDMODUU 


174 


A.SEMODW 


275 


A.DTFISl 


62 


A.DTFIS 2 


66 


A.DTFIS3 


53 


A. ISMODO 


94 


A.ISMODl 


19 3 


A.ISMOD 2 


155 


A.ISMOD 3 


116 


A.ISMOD 4 


113 


A.ISMOD 5 


114 


A . I SMOD 6 


195 


A. ISM0D7 


130 


A.ISM0D8 


111 


A. ISM0D9 


165 



Supervisor 


Number of 


Communications 


Library 


Macros 


Blocks 


A. ATTACH 


11 


A. CALL 


10 


A. CANCEL 


4 


A.CHKPT 


23 


A.CHNG 


2 


A.COMRG 


2 


A.DEQ 


5 


A. DETACH 


4 


A. DUMP 


2 


A.ENQ 


4 


A.EOJ 


2 


A. EXIT 


5 


A. FETCH 


6 


A.GETIME 


9 


A. LOAD 


6 


A.MVCOM 


7 


A.PDUMP 


7 


A. POST 


6 


A.RCB 


2 


A. RETURN 


11 


A. SAVE 


10 


A.SETIME 


8 


A.STXIT 


9 


A.TECB 


2 


A. WAIT M 


8 




Total 165 




Number of 




Library 


BTAM Macros 


Blocks 


A.ASMTRTAB 


3 


A. BTMOD 


2313 


A.DFTRMLST 


82 


A. DTFBT 


186 


A.DTFBTND 


2 


A. IJLBTMDS 


60 


A.TRNSLATE 


48 


A. CONTROL 


3 


A.CHGNTRY 


107 


A. BTWAIT 


37 


A.LERB 


30 


A. BTRWC 


149 


A. LERPRT 


35 


A.LOPEN 


9 


A.RELBUF 


19 


A.REQBUF 


29 


A.RESETPL 


11 


A.TWAIT 


27 


A.ONLTST 


50 


A.TRSRCTW 


20 


A.TRSRCT3 


20 


A.TRSSCTW 


24 


A.TRSSCT3 


24 



Total 



6,750 



Total 3,387 
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Number of 






Library 




QTAM Macros 


Blocks 




A. IJLQBABD 


27 




A.IJLQBFRD 


29 




A.IJLQBRBD 


11 




A.IJLQCKPD 


8 




A.IJLQDTFD 


152 




A.IJLQIPID 


U 




A-IJLQLABD 


53 




A. IJLQLCBD 


67 




A.IJLQMCBD 


12 




A. IJLQQCBD 


26 




A. IJLQSTBD 


U 




A.IJLQSVCD 


13 




A. IJLQTBLD 


9 




A. I JLQVECD 


12 




IJLQCTLD 


9 




A.ARUMGTYP 


11 




A. BREAKOFF 


4 




A.BDFARU 


18 




A. BUFFER 


17 




A.CfiNCELM 


5 




A.CHECKARU 


26 




A.CHNGP 


12 




A.CHNGT 


7 




A.CKRBQ 


4 




A. CLOSE MC 


U 




A.COPYC 


10 




A.COPYP 


12 




A.COPYQ 


7 




A.COPYT 


7 




A. COUNTER 


5 




A.Ci'LTBL 


7 




A.DATESTMP 


4 




A. DIRECT 


5 




A. DTFQT 


U03 




A.EICRCV 


7 




A. ENDREADY 


10 




A.ENDSEND 


7 




A.EOA 


6 




A.ECB 


2 




A.EOBLC 


2 




A.ERRMSG 


15 




A, INT ERCPT 


7 




A. LINE 


8 




A.LINETBL 


7 




A. LIST 


9 




A.LOGSEG 


9 




A. LPS TART 


37 




A. MODE 


17 




A.MSGTYPE 


12 




A.OPCTL 


21 




A. OPTION 


6 




A. PAUSE 


13 




A.POLL 


14 




A.POLLIMIT 


6 




A.POSTARU 


6 




A.POSTRCV 


6 




A.POSTSEND 


11 




A. PRO CESS 


20 




A.RCVHDR 


5 




A.RCVITA2 


19 




A.RCVSEG 


5 
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Number of 




Library 


QTAM Macros 


Blocks 


A.RCVZSC3 


19 


A.RELEASEM 


5 


A. REPEAT 


11 


A. REROUTE 


11 


A. RETRIEVE 


18 


A. ROUTE 


4 


A.SENDHDR 


7 


A.SENDSEG 


7 


A.SEQIN 


6 


A. SEQOUT 


6 


A. SKIP 


8 


A.SNDITA2 


24 


A.SNDZSC3 


24 


A. SOURCE 


4 


A. STARTARU 


18 


A.STARTLN 


15 


A.STOPARU 


15 


A. STOPLN 


15 


A. STCBD 


4 


A. TERM 


48 


A.TERMTBL 


44 


A.TERMBLD 


3 


A.TIMESTMP 


6 


A. TRANS 


17 


A. WORD 


9 


A.WORDTBL 


5 


A.ULQDEQU 


65 


A.IJLQDSCT 


2 


A. ULQTSVC 


104 


A. LCBD 


18 


A.PREFIXD 


13 


A.QCBD 


10 


A.WRU 


5 




Total 1,859 


IOCS 


Number of 


Imperative 


Library 


Macros 


Blocks 


A.CCB 


17 


A. CHECK 


9 


A. CLOSE 


9 


A. CLOSER 


10 


A.CNTRL 


27 


A.DISEN 


6 


A. DSPLY 


8 


A.ENDFL 


6 


A.ERET 


3 


A. ESETL 


6 


A.EXCP 


4 


A.FEOV 


6 


A. FREE 


5 


A. GET 


8 


A.LITE 


8 


A. LB RET 


5 


A. NOTE 


6 


A.OPEN 


9 



IOCS 


Number of 


Irnperative 


Library 


Macros 


Blocks 


A.OPENR 


13 


A.POINTR 


9 


A. POINTS 


6 


A.POINTW 


9 


A,PRTOV 


10 


A-POT 


12 


A. RDLNE 


6 


A. READ 


30 


A.RELSE 


6 


A.RESCN 


12 


A.SEOV 


U 


A.SETFL 


5 


A.SETL 


9 


A. TRUNC 


6 


A, WAIT 


5 


A.WAITF 


17 


A. WRITE 


33 




Total 335 




Number of 


COBOL and PL/I 


Library 


DASB Macros 


Blocks 


A.LOADA 


28 


A.LODIS* 


30 


A. RAN DA 


28 


A.RUADA 


44 


A.RRUIS* 


32 


A.RUAIS* 


40 


A.SEQDA 


30 


A.SRUIS* 


38 




Total 270 


♦Used by PL/I 






Number of 




Library 


PL/I Macro 


Blocks 


A.IJKZL 


6 




Number of 


MPS Utility 


Library 


Macros 


Blocks 


A. INCARD 


37 


A.INDISK 


124 


A.INLOG 


39 


A. INT APE 


146 


A.INTCR 


296 


A. OUT CARD 


91 


A.OUTDISK 


170 


A. our LOG 


39 


A.OUTPRT 


110 


A. OUT APE 


128 




Total 1,180 



Supervisor 
Generation 
Macros 



Number of 

Library 

Blocks 



A. ALLOC 


22 


A.ASSGN 


14 


A.COMMN 


46 


A.OONFG 


17 


A.DVCGEN 


42 


A.POPT 


211 


A. IJLQBFRD 


29 


A. ULQDSCT 


2 


A.IJLQIPID 


4 


A, ULQQCBD 


26 


A.IJLQSTBD 


4 


A. ULQTSVC 


104 


A.IJLQVECD 


12 


A.IOTAB 


146 


A. LUBGEN 


19 


A.PIOCS 


24 


A. SEND 


191 


A. SGDFCH 


96 


A.SGDSK 


49 


A. SGSVC 


260 


A.SGTCHS 


332 


A.SGTCON 


126 


A. SGTHAP 


295 


A. SGUNCK 


91 


A. SMICR 


209 


A.STDJC 


22 


A.SUPVR 


44 




Total 2,438 




Number of 


Maintenance 


Library 


Macro 


Blocks 


A.DOSCHLV 


59 


Z.ILFI4ERGE 


11 


Z.DELETECL 


17 


Z. DELETER L 


41 


Z.DELETESL 


38 


Z.LINKEDIT 


114 




Total 280 




Number of 


IBM Model 30 


Library 


Emulator Macros 


Blocks 


A.EU3CG 


106 


A.EU3DK 


727 


A.EU3EJ 


61 


A. EU3ER 


30 


A.EU3FT 


37 


A.EU3MS 


66 


A.EU30S 


669 


A.EU3PH 


239 


A.EU3PT 


171 


A.EU3RD 


235 


A.EU3TP 


306 


A.EU30 


859 



Total 3,562 
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Number of 


Sample 


Library 


Problems 


Blocks 


Z.ASl 




6 


Z.AS2 




6 


Z.AS3 




6 


Z.ASU 




6 


Z.AS5 




6 


Z.AS6 




6 


Z.ATl 




6 


Z.CBl 




25 


Z.EU3SPRGM 




88 


Z-EIWSPRGM 




88 


Z. FOl 




5 


Z.IIf SAMPL 




5 


Z.MCRl 




18 


Z.MC3i2 




30 


Z.ORDC 




45 


Z.ORJT 




21 


Z.PLl 




11 


Z.RGl 




13 


Z.SML 




2 


Z. SM2 




2 


z.sm 




2 


Z.SM5 




2 


Z,SM6 




2 


Z.DTDCPRl 




1 


Z .UTDKPRl 




1 


Z-U'IDKPR2 




1 


Z,UTDKPR3 




1 


Z-UTTPPRl 




1 


Z.UTTPPR2 




1 


Z.VPUl 




17 


Z.ILB^SAMPL 




5 




Total' 


338 





Number of 


IBM Model 


UO Library 


Emulator 


Macros Blocks 


A.DIAG 


19 


A.EUUCG 


60 


A.EU4DK 


689 


A.EUUEJ 


85 


A.EU4ER 


H3 


A.EUUFT 


17 


A.EU4IN 


253 


A.EU4MS 


36 


A. EUUOS 


656 


A.EU4PH 


248 


A.EUUPT 


183 


A.EUURD 


241 


A.EU4TP 


317 


A.EUUO 


1047 




Total 3,894 
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Workfile Requirements 

This section contains inforiration for determining the workfile 
requirements for the Linkage Editor, Assembler F, Assembler, COBOL, 
FORTRAN, Basic FORTRAN, PL/I, and RPG . 



WORKFILE REQUIREMENTS FOR LINKAGE EDITOR AND ASSEMBLER (IBM 2311 AND IBM 
23m) 

This section contains information for deteirmining the workfile 
requirements for the Linkage Editor and Assembler when the workfile is 
on an IBM 2311 or 231U. 

Two workfiles are used by the Linkage Editor: SYSLNK for input, and 
SYSOOl for a workfile. 

The best overall performance for linkage editing results from using two 
disks and one tape: SYSRES and SYSLNK each assigned to a separate disk 
drive, and SYSOOl assigned to tape. When possible, SYSLNK should be 
assigned to the faster of the two disks because more I/O is performed on 
SYSLNK than on SYSRES. Because linkage editing time is relatively small 
compared to assembler or compiler times, optimum assignments for 
assembling and linkage editing (or compiling and linkage editing) should 
be based on assembler or compiler conditions, not linkage edit time. 
Thus, when making optimum workfile assignments, the major consideration 
should be compiler time. A savings in linkage editing time is generally 
at the expense of compiler performance. 

When built by a language processor, SYSLNK contains 25 card images per 
track. When an object deck is used as input to the Linkage Editor, job 
control formats SYSLNK. In this case, SYSLNK contains 9-36 card images 
per track; ESD, TXT, and RID cards are packed 4 per record while all 
other input cards are not packed (1 per record) . 

In a compile and linkage edit situation, any allocation made for SYSOOl 
for the compilation is more than sufficient as a workfile allocation for 
the Linkage Editor. However, when the programmer must allocate SYSOOl, 
he can use this information. The Linkage Editor workfile (SYSOOl) 
contains 10 records per track. The total number of records (R) required 
for linkage editing a program is equal to the following: 

R=l + Xi + X2+ . . . + Xn 

where n = rounded high 

Xi,X2»-.-#Xn = number of RID cards in each module to be processed 
by the Linkage Editor 



ASSEMBLER WORKFILES 

The Assembler workfile requirements can be determined by adding the 
appropriate track values from Figure 75 or Figure 76 to the appropriate 
track values determined from Figure 7U. Note that Figure 74 is 
expressed in terms of number of bytes. The approximate number of tracks 
can be calculated by dividing the number of bytes by 3000 for a 2311 



Appendix G 365 



file or fcy 6000 for a 231U file. These numbers represent the 
approximate number of text bytes per track for a 2311 and a 2314, 
respectively. In Figures 75 and 76 SYSLNK requirements are expressed in 
terms of tracks per macro instruction ; the other three areas are 
expressed in tracks per macro definition . 

In determining the total number of tracks required for Assembler 
workfiles, the SYSLNK value must be included each time the macro 
instruction is used. The SYSOOl, SYS002, and SYS003 values need be 
included only once per macro definition,, regardless of the number of 
times the macro instruction is used. 

For example, if three tape files are defined, three DTFMT macros are 
used. The track values for SYSOOl, SYS002, SYS003 are included once 
because the Assembler uses macro definition only once; but the SYSLNK 
value is multiplied by three because the macro instruction is expanded 
three times. 



Number of Bytes I 

T r r i 



SYSLNK 
Bytes per 
Statement 



SYSOOl 
Bytes per 
Statement 



SYS002 
Bytes per 
Statement 



SYS003 
Bytes per 
Statement 






IUQD16TW |1 for 1 | 15 

|. ^ Statements 

IIJQD16DW I 
f 1 

IIJQD32 I I 15 

I UYASM 

L ±. 



150 



150 



36 






130 



130 



36 



± J. X X L J 



Figure 74. Non-Macro Assembly workfile Requirements for 2311 and 2314 
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Number of Tracks 



(short Macros 
I like IOCS 
I Imperatives 

I CD MOD 

(DAMOD 

IDIMOD 

I DTFCD 

IDTFCN 

jDTFDA 

I DTFDI 

|*DTFEN 
\ 

|DTFIS 

|DTFMR 

I DTFMT 

IDTFOR 
t 

JDTFPH 

IDTFPR 

IDTFPT 
^ 

I DTFSD 

V— — 

I DTFSR 
f 



SYSLNK 
Tracks per 
Macro Inst. 



2311 j 2314 



0.02 
0.15 
0.38 
0.55 



+- 



+- 






0,13 
+ 

0.09 
+ 

0.24 

+ 

0.35 



SYSOOl I SYS002 
Tracks per | Tracks per 
Macro Def. | Macro Def . 



2311 I 
+- 



1 I 
+- 

11 j 
+- 

10 I 
+- 

8 I 



2314 I 
+- 

I 

I 

1 I 
+- 

6 I 
+- 

5 I 
^- 

*» I 



2311 I 
+- 



2 I 
+- 

3 I 
+- 

13 I 
+- 

11 I 



2314 
+ 



1 
+ 

7 
+ 

7 

+ 

6 



SYS003 
Tracks per 
Macro Def. 



2311 j 2314 



1 

+ 

17 

+ 

9 

+ 

11 









+ +- 












+ +- 





















0.05 
0.08 
0.08 
0.36 


0.12 
0.34 
0.05 
0.08 
0.08 
0.05 
0.05 
0.08 
0,08 
0.74 



0.03 
+ 

0.05 
+ 

0.05 

+ 

0,23 
4 



+ 

0.08 

+ 

0,17 
+ 

0.03 
1 

0.05 
+ 

0.05 
+ 

0.03 
+ 

0.03 

4 

0.05 
+ 

0.05 



6 I 
+- 

^ I 
+- 

9 I 
+- 

^ I 
+- 

127 I 
-+. 

9 I 
+- 

*♦ I 
+- 

9 I 
+- 

^ I 

3 I 
+- 

3 I 
+- 

7 I 
+- 

10 I 
+- 

79 I 
+- 

53 I 
x_ 



3 I 
+- 

2 I 
+- 

5 I 
+- 

2 I 
+- 

67 I 
+- 

5 I 
1- 

2 I 
^. 

5 I 
h- 

2 I 
+- 

2 I 
h- 

2J 

^ I 
h- 

5 I 
+- 

41 I 

+- 

28 I 

JL. 



7 I 
+- 

5 I 
+- 

10 I 
+- 

^ I 
f- 

143 I 
+- 

11 I 



4 
+ 

3 
+ 

6 
+ 

2 
f 

75 
+ 

6 



9 
+ 

6 

+ 

13 
+ 

5 

1- 

162 
+ 

13 



4 
3 
6 
2 
84 
6 



5 I 
+- 

10 I 

4- 

^ I 
4- 

^ I 
4- 

*♦ I 
4- 

8 I 
f- 

11 I 
4- 

90 I 

4- 

64 I 
J.. 



3 

4 

5 

4 

2 

4 

2 

4 

2 

4 

4 
f 

6 

4 

47 



5 
4 

12 

4 

5 

4 

5 

4 

5 

4 

9 

y 

13 

4 

105 



3 
6 
2 
2 
2 
4 
7 
54 
30 



ISMOD 



0.47 



33 



58 



Figure 75. Assembler Macro Instruction Workfile Requirements for the 
IBM 2311 and IBM 2314 (Part 1 of 2) 
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r— 
I 



Number of Tracks 



I 

[mtmod 

I ORMOD 
IPRMOD 
jPTMOD 
I SDMODFI 
I SDMODPO 
I SDMCOFD 
I SDMODVI 

I SDMODVO 

k 

I SDMODVU 

I SDMODUI 
I 

I SDMODUO 

I SDMODUU 

I SDMODW 

L . 



SYSLNK 
Tracks per 
Macro Inst. 

I T 

2311 I 2314 

+ + + 

0.67 I 0.34 

+ + + 

0-23 I 0.15 

f f f 

0.20 I 0.13 

+ + + 

0.12 I 0.08 

+ + + 

0.15 I 0.09 

+ + + 

0.80 I 0.50 

4 4 4 

0.80 I 0.50 

4 4 4 

0.80 I 0.50 

4 4 4 

0.80 I 0.50 

4 -4 4 

0. 80 I 0. 50 



SYSOOl I SYS002 | SYS003 
Tracks per j Tracks per | Tracks per 
Macrd Def . | Macro Def. | Macro Def. 



2311 
10 
22 
11 
5 
13 
12 
12 
15 
11 
13 



2314 I 2311 

5 I 12 

4 4 

12 I 23 

4 4 

6 I 16 

4 h 

3 I 6 

4 \- 

7 I 13 

4 4 

6 I 14 

4 1- 

7 I 15 

8 I 18 

4 4 

6 I 12 

4 1- 

7 I 16 






f 









4 



4 



4 









f 



2314 
6 
12 
8 
4 
7 
8 
8 
10 
6 
9 



I 2311 I 2314 

I 8 I 4 

f f 1 

I 27 I 14 

15 I 7 
8 I 4 

14 I 7 

I 16 I 8 

I 16 I 8 

19 I 9 

14 I 7 

^ f 1 

16 I 8 



0.80 I 0.50 I 13 
+ + + + 

0.80 I 0.50 I 10 
4 + + + 

0,80 I 0.50 I 11 
4 4 + 4 

0.80 I 0.50 I 13 

4 4 4 4 

0.80 I 0.50 I 16 
J. 



7 I 
1--. 

5 I 
^_. 

6 I 

— ^- 

7 I 

— 4- 

9 I 
j._. 



17 
+ 

11 
+ 

12 

4 

15 

4 

17 



9 I 

— 4- 

6 I 

— 4- 

6 I 

— 4- 

8 I 

— 4- 

9 I 
j._. 



16 I 
-1-- 

13 I 
+- 

14 I 

4- 

16 I 

4- 

22 I 

JL. 



8 

7 

7 

8 

11 



* The measurements for DTFEN, unlike the other macro instruction 
measurements,, represent minimum workfile requirements. The measurements 
were made assembling DTFEN by itself, which resulted in minimum 
expansion- The use of DTFEN should be avoided wherever possible because 
of its large workfile requirements. 

Figure 75. Ass«nbler Macro Instruction Workfile Requirements for the 
IBM 2311 and IBM 2314 (Part 2 of 2) 
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1 


Number of Tracks 


1 


1 SYSLNK 


1 SYSOOl 1 SYS002 | 


SYS 003 1 


1 Tracks per 


1 Tracks per | Tracks per | 


Tracks per | 


1 Macro Inst. 


1 Macro Def. \ Macro Def . | 


Macro Def. | 


L _ 


j 1 , , ., ™ 1 




1 2311 and 


1 2311 1 2314 1 2311 | 2314 | 


2311 1 2314 1 


1 2314 
(Short Macros! 


_+ + 4. ^ ^._ 


4 ^ 


Ilike IOCS 1 






1 Imperatives | 0.02 
ICDMOD 1 0.15 


1 1 1 1 1 1 1 1 1 
1 2 1 2 1 2 1 1 1 


2 1 1 1 
4 ^ 

10 1 5 1 


IDAMCD 1 0.38 

IDIMOD 1 0.55 

J + 

[dTFCD 1 0-05 


_+ + 4 + 1. 

1 5 1 3 1 5 1 3 i 
_4 + + + ^._ 

1 5 1 3 1 5 1 3 1 
1 2 1 1 1 2 1 1 1 


6 1 4 1 
4 ^ 

7 1 4 1 
4 ^ 

5 1 3 1 


IDTFCN 1 0.08 
IDTFDA 1 0.08 


1 2 1 1 1 2 1 11 
1 3 1 2 1 3 1 2 1 


4 ^ 

4 1 3 1 
4 ^ 

7 1 4 1 


IDTFDI 1 0.36 


1 2 1 1 1 2 1 1 1 


4 1 3 1 


1 1 


4- 4- 4- 4. -I 


4 J 


1 ♦DTFEN 1 

I ^ 

JDTFIS 1 0.12 
IDTFMR 1 0.34 


T T T T T 

1 2 1 1 1 2 1 1 1 

-4 4 4 4 4_ 

1 3 1 2 1 3 1 2 1 
1 2 1 1 1 2 1 11 


121 1 62 1 

7 1 4 1 
4 ^ 

4 1 3 1 


L_ „ J._ 


1 1 1 1 1 


4. J 


jDTFMT 1 0.05 

1 DTFOR 1 0- 08 

JDTFPH 1 0.08 

IDTFPR 1 0.05 

^ + 

JDTFPT 1 0- 05 


1 2 1 1 1 3 1 2 1 
_^ 4 ^_ 4 4. 

1 2 1 1 1 1 1 1 1 

_4 4 4 4 4. 

1 1 1 1 1 1 1 1 1 
_4 4 4 4__^ — 4_ 

1 2 1 1 1 11 1 1 
_4 4 4 4 4_ 

1 2 1 1 1 2 1 1 1 


T 1 

7 1 4 1 
4 1 

3 1 2 1 
4 ^ 

3 1 2 1 

3 1 2 1 
4 ^ 

6 1 3 1 


^^^ + 

IDTFSD 1 0.08 

IDTFSR 1 0.08 


_4 ^ ^ 4 4. 

I 2 1 1 1 3 1 2 1 

1 2 1 1 1 3 1 2 1 


4 ^ 

8 1 4 1 

70 1 38 1 


IISMOD 1 0.74 

L_ _ _ J. 


1 18 1 17 1 15 1 15 1 
4. 4. 4. 4. 4. 


4 ^ 

26 1 25 1 


IMRMOD 1 0.67 


T T T T T 

1 5 1 3 1 4 1 2 1 


T 1 

7 1 4 1 



.-4.. 



Figure 76. Assembler F Macro Instruction Workf ile Requirements for the 
IBM 2311 and IBM 2314 (Part 1 of 2) 
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Number of Tracks 



U I 7 I 6 I 



1 I 2 I 1 I 



r 

1 MTMOD 

lORMOD 

1 PRMOD 

1 PTMOD 

I 

[read, write 

k 

1 SDMODFI 

1 SDMODFO 

1 SDMODFU 

1 SDMODVI 

t 

1 SDMODVO 

f 

1 SDMODVU 


-+- 
-+- 
-f- 
-+- 
-+- 
-+- 
-\- 
-+- 
-+- 
-+- 
-f- 


SYSLNK 
Tracks per 
Macro Inst. 

2311 and 
2314 

0.23 


1 

1 

I 
-+- 

1 

1 
-+- 

1 
-+- 

1 
-f- 

1 
-+- 

1 
-+- 

1 
-+- 

1 

-4- 

1 
-+- 

1 
-+- 

1 
-+- 

1 
-f- 

1 


SYSOOl 1 
Tracks per | 
Macro Def. | 

T 4- 

2311 1 2314 1 

1 i 

4 4- 

6 1 3 1 
1 1 


SYS002 
Tracks per 
Macro Def. 

2311 1 2314 

1 

4 

5 1 3 
1 


-4- 
-4- 

-f- 

-4- 
-4- 
-4- 
-4- 
-4- 
-4- 
-4- 
-4- 
-4- 


SYS003 
Tracks per 
Macro Def. 

T 

2311 j 2314 

1 

4 

20 1 11 


0. 


20 


3 


-T- 
1 

-4- 

1 

-4- 

1 
-4- 

1 
-4- 

1 
-4- 

1 
■4- 

1 
-4- 

1 
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* The measxjrements for DTFE^t unlike the other macro instruction 
meeisurements, represent minimum workfile requirements. The measurements 
were made assembling DTFEN by itself, whichis resulted in minimum 
expansion. The use of DTFEN stxould be avoided wherever possible because 
of its large workfile requiremehts. 

Figure 76. Assembler F Macro Instiruction Workfile Requirements for the 
IBM 2311 and IBM 2314 (l>art 2 of 2) 



IBM 2311 Workfile Requirements 



This section contains information for determining the workfile 
requirements for Autotest, COBOL, FORTRAN, Basic FORTRAN PL/ I and RPG 
when the workfile is on an IBM 2311. 
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AUTOTEST WCPK AREA (IBM 2311) 

To autotest a program with no symbols and with no test requests, the 
minimum work area (IJSYSAT) for machine sizes of 32K or higher requires 
11 tracks. For machine sizes less than 32K, 6 tracks are required. A 
complete description of this work area, including formulas to calculate 
the required number of tracks for a specific program, is included in the 
Autotest publication. 



COBOL WORKFILES (IBM 2311) 

Although the amount of COBOL work space depends mainly on the size of 
the object program, these general guidelines can be given. For a COBOL 
program of about 400 source statements, 10 tracks should be assigned to 
SYSLNK,, SYSOOl, SYS002, and SYS003. For a COBOL program of about 800 
source statements, 20 tracks should be assigned to SYSLNK, SYSOOl, 
SYS002,, and SYS 00 3. 



FORTRAN WORKFILES (IBM 2311) 

For a FORTRAN program, 6 tracks should be assigned to SYSLNK and 4 
tracks to SYSOOl and SYS002 for every 100 source statements. 

For a Basic FORTRAN program, U tracks should be assigned to SYSLNK and 
to SYSOOl for every 100 source statements. 



PL/I WORKFILES (IBM 2311) 

For each 100 PL/I source statements, 3 tracks should be reserved for 
SYSLNK; 5 tracks for SYSOOl; and 7 tracks each for SYS002 and SYS003. 

This estimate is based on the following assumptions: 

1. There are about 30 variable names per 100 statements in the external 
procedure. 

2« The number of PL/I syntactical elements per source statement (except 
DECLARE statements and format lists) is about 10. For example, the 
statement 

A=B+C ; 
has 6 syntactical elements, and the statement 

READ FILE (F) INTO (AREA?) ; 
has 10. 



RPG WORKFILES (IBM 2311) 

For an RPG program of about 150 source statements, 8 tracks should be 
assigned to SYSLNK and to SYS003, and 3 tracks to SYSOOl and to SYS002. 

For an RPG program of about 500 source statements, 22 tracks should be 
assigned to SYSLNK; 10 tracks to SYSOOl and to SYS002; and 26 to SYS003. 
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For an RPG progrcun of about 1,000 source statements, UU tracks should be 
assigned to SYSLNK; 20 tracks to SYSOOl and to SYS002; and 52 to SYS003. 



IBM 2314 Workfile Requirements 

This section contains information for determining the workfile 
requirements for COBOL, FORTRAN, Basic FORTRAN and RPG when the workfile 
is on an IBM 2314. 



COBOL WORKFILES (IBM 2314) 



Although the amount of COBOL work space depends mainly on the size of 
the object program, these general guidelines can be given. For a COBOL 
program of about 400 source statements, 5 tracks should be assigned to 
SYSLNK, SYSOOl, SYS002, and SYS003. For a COBOL program of about 800 
source statements, 10 tracks should be assigned to SYSLNK, SYSOOl, 
SYS002, and SYS003. 



FORTRAN WORKFILES (IBM 2314) 



For a FORTRAN progrcim, 3 tracks should be assigned to SYSLNK and 2 
tracks each to SYSOOl and SYS00 2 for eve3:y 100 source statements. 

For a Basic FORTRAN program,, 2 tracks should be assigned to SYSLNK and 
to SYSOOl for every 100 source statements. 



PL/I WORKFILES (IBM 2314) 



For each 200 PL/I statements, 3 tracks should be reserved for SYSLNK; 5 
tracks for SYSOOl; and 7 tracks each for SYS002 and SYS003. This 
estimate is based upon the following assumptions: 

1. There are about 30 variable names per 100 statements in the external 
procedure. 

2. The number of PL/I syntactical elements per source statement (except 
DECLARE statements and format lists) is about 10. For excunple, the 
statement 

A=B+C 
has 6 syntactical elements; the statement 

READ FILE (F) INTO (AREA7) 
has 10 syntactical elements. 



RPG WORKFILES (IBM 2314) 



For an RPG program of about 150 source statements, 5 tracks should be 
assigned to SYSLNK and to SYS003, and 2 tracks to SYSOOl and to SYS002, 

For an RPG program of about 500 source statements, 11 tracks should be 
assigned to SYSLNK, 5 tracks to SYSOOl and to SYS002, and 13 to SYS003. 
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For an RPG program of about 1,000 source statements, 22 tracks should be 
assigned to SYSLNK, 10 tracks to SYSOOl and to SYS002 , and 26 to SYS003. 



OPTIMUM ASSIGNMENT OF WORKFILES 

Figure 77 lists the optimum assignments of the symbolic units used as 
workfiles when assembling and linkage editing or compiling and linkage 
editing user programs. While SYSRES and SYSLNK must be assigned to disk 
units, SYSnnn can be assigned to either tape or disk units. Where split 
cylinders are recommended. Figure 77 gives the division of the tracks in 
each cylinder between the symbolic units. 

Key to figures: 

• Workfile assignments are given by an integer and a letter n,m where: 

n = the disk unit. 

m = the disk cylinder(s) group assigned for the symbolic unit. 

• Cylinder track numbers are given by integer(s) t where: 

t = the number of disk tracks per cylinder to be assigned for the 
symbolic unit. 

• Tape speeds are given by an integer s where: 

s = the relative speed of the tape unit (the number 1 is the 
fastest speed) . 

• Tape channels are given by an integer c where: 

c = the channel that the tape should be on. 

• If two symbolic units have the same disk and cylinder (s) assignment 
indication (n,m) , they share a split cylinder. 

• Where applicable, the assignments that give the best overall 
performance are indicated. 

Figure 77 (Part 1 of 3), shows that for a two disk system, disk workfile 
assignments for Assembler (lUK variant) are: 

Assign SYSRES Disk drive number 1 
Cylinder group A 

Assign SYSLNK Disk drive number 1 
Cylinder group C 

Assign SYSOOl Disk drive number 2 
Cylinder group A 

Assign SYS002 Disk drive number 2 
Cylinder group A 
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Assign SYS 003 Disk drive number 1 
Cylinder group B 

Interpreting the information collectively reveals that SYSRES, SYSLNK 
and SYS003 are assigned separate cylinders on disk 1, and SYS 001 and 
SYS002 share the same cylinder group (A) on disk 2. Thus, Cylinder 
group (A) is split such that SYSOOl and SYS002 each occupy 5 tracks of 
every cylinder in the group. To define the extents for workfiles, refer 
to the IBM publication System Control and System Service Programs , 
listed on the front cover of this mcuiual. 
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Workfile Assigninents For Two Disk Drive Systems 
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Figure 77. Optimum Workfile Assignments for Assembling euid Linkage Editing or Compiling 
and Linkage Editing (Part 1 of 3) 
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i Workfile Assignments for One Disk Drive 
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Figure 77. Optimum Workfile Assignments for Assembling and Linkage Editing or Compiling 
and Linkage Editing (Part 2 of 3) 
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Workfile Assignments for One Disk Drive with Three Tape Units 
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Note 1: The configuration that yields the best overall performance depends 
upon the variant of the assembler used (lOK or 14K) and the storage available. 
The assignments shown assume that the 14K variant of the Assembler is used in a 
64K environment. For cases with over approximately 500 lines of output, the 
two disk drive configuration yields the best overall performance. For cases 
with under approximately 500 lines of output, the three tape drive 
configuration yields the best overall performance. 

Note 2: Indicates best overall performance. 

Note 3: Two disk drive chart- For PL/I only users, compilation times will be 
faster if the following assignments are made for SYSOOl, SYS002 and SYS003 in 
place of those given. 

Assign SYSOOl to drive 2, group A, tracks 0-4 
Assign SYS003 to drive 2, group A, tracks 5-9 
Assign SYS002 to drive 1, group C, tracks 0-9 

The assignments for SYSRES and SYSLNK are the same. 

Note 4: Relative tape speeds are indicated by 1, 2 or 3. 1 designates the 
fastest tape unit, 2 the next fastest, etc. 

Note 5: SYSRES and SYSLNK must always be assigned to disk in a one disk drive, 
three tape drive configuration. 



Figure 77. Optimum Workfile Assignments for Assombling and Linkage 
Editing or Compiling and Linkage Editing (Part 3 of 3) 
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